将工作表VN的单元格(A1)复制到工作表VL的F列中的第一个打开单元格，然后将A2复制到F中的下一个打开单元格

Question

我正在尝试编写一个宏，将工作表 wsVN 的单元格 A1 的内容复制到工作表 wsVL F 列中的第一个打开单元格，然后将 A2 复制到 F 中的下一个打开单元格，然后将 A3 复制到下一个单元格，依此类推直到 A305。工作表 VL 有一个标题行，第一个打开单元格为 F2。这就是我试图通过A1的地方。然后我有几行数据，然后是另一个打开的单元格，我想通过 A2。然后在 A5 应该去的下一个打开单元格之前 3 行数据。到目前为止，我所做的最接近：

Sub Data_Transfer()
'
' Data_Transfer Macro
' Transfers VariableNames Data to the next available row of sheet VariableList.
Dim lastRow As Integer
Dim wsVN As Worksheet
Dim wsVL As Worksheet
Dim sourceRange As Range
Dim targetRange As Range
Set wsVN = Worksheets("VariableNames")
Set wsVL = Worksheets("VariationList")

If Len(wsVL.Range("F1").Value) > 0 Then
lastRow = wsVL.Range("F2").End(xlDown).Row
Else
lastRow = 2
End If
Set sourceRange = wsVN.Range("A1")
Set targetRange = wsVL.Range("F" & lastRow).Offset(1, 0)
sourceRange.Copy
targetRange.PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False
End Sub

希望有人能就此提供一些指导。将不胜感激！ 谢谢

Answer 1

试试这个，调整工作表名称以适应。

Sub x()
Dim r As Range
With Worksheets("Sheet1") 'source sheet
For Each r In .Range("A1", .Range("A" & Rows.Count).End(xlUp))
Worksheets("Sheet2").Range("F:F").SpecialCells(xlCellTypeBlanks)(1).Value = r.Value 'destination sheet
Next r
End With
End Sub

更多关于SpecialCells的信息。