【发布时间】：2019-05-20 18:56:00
【问题描述】：
我有一个关于单元格维度的行和列属性可能非常简单的问题。
对于上下文 - 我有三张纸，其中一张是主纸。我根据列标题将两个数据表中的每一个数据表复制到主表中。并非主选项卡中的所有列标题都出现在数据表中。我编写了以下代码，它遍历第一个数据表 (ws2) 并将数据列粘贴到主表中的相关列中。
Sub master_sheet_data()
'Variables
Dim ws1_xlRange As Range
Dim ws1_xlCell As Range
Dim ws1 As Worksheet
Dim ws2_xlRange As Range
Dim ws2_xlCell As Range
Dim ws2 As Worksheet
Dim ws3_xlRange As Range
Dim ws3_xlCell As Range
Dim ws3 As Worksheet
Dim valueToFind As String
Dim lastrow As String
'Assign variables to specific worksheets/ranges
'These will need to be updated if changes are made to the file.
Set ws1 = ActiveWorkbook.Worksheets("Refined event data - all")
Set ws1_xlRange = ws1.Range("A1:BJ1")
Set ws2 = Worksheets("Refined event data")
Set ws2_xlRange = ws2.Range("A1:BJ1")
Set ws3 = Worksheets("Refined ID data")
Set ws3_xlRange = ws3.Range("A1:BJ1")
'Loop through all the column headers in the all data tab
For Each ws1_xlCell In ws1_xlRange
valueToFind = ws1_xlCell.Value
'Loop for - Refined event data tab
'check whether column headers match. If so, paste column from event tab to relevant column in all data tab
For Each ws2_xlCell In ws2_xlRange
If ws2_xlCell.Value = valueToFind Then
ws2_xlCell.EntireColumn.Copy
ws1_xlCell.PasteSpecial xlPasteValuesAndNumberFormats
End If
Next ws2_xlCell
'Loop for - Refined MASH data tab
'check whether column headers match. If so, paste column from MASH tab to relevant column in all data tab
'ensure data is pasted below data from previous loop and only pulling data with '0' in col O, 'N' in col Q in MASH tab
For Each ws3_xlCell In ws3_xlRange
If ws3_xlCell.Value = valueToFind Then
ws3_xlCell.End(xlUp).Copy
lastrow = ws1.Cells(rows.Count,"..." ).End(xlUp).Row + 1
Range("..." & lastRow).Select
Selection.PasteSpecial xlPasteValuesAndNumberFormats
End If
Next ws3_xlCell
Next ws1_xlCell
End Sub
在循环浏览第二个数据表 (ws3) 时出现问题。我需要将这些列粘贴到主表中相关列的下一个空行。我打算使用lastrow 维度来计算它，但它需要一个行/列引用来定义它。不幸的是，列 ("...") 绑定到 ws1_xlCell 维度，该维度随着循环的处理而移动。
有没有办法从定义为维度的单元格中提取列引用？
干杯， 蚂蚁
【问题讨论】：
-
lastrow = ws1.Cells(rows.Count,ws3_xlCell.column ).End(xlUp).Row + 1?不确定这是否是正确的列变量，但希望您能理解。您应该使用 Find 或 Match 来避免遍历每个单元格。