• 如果Invoice上的Col B中的任何单元格为非空，则将其值复制到Data上的Col A
• 请提供详细信息，如果这不是你正在寻找的。

Option Explicit
Sub Transfer()
    Dim lngRow      As Long
    Dim lngLastRow   As Long
    With Sheets("Invoice")
        lngLastRow = .Range("A" & .Rows.Count).End(xlUp).Row
        For lngRow = 2 To lngLastRow
            If Len(.Cells(lngRow, "B").Value) > 0 Then
                Sheets("Data").Range("A" & Sheets("Data").Rows.Count).End(xlUp).Offset(1).Value = .Cells(lngRow, "B").Value
            End If
        Next lngRow
    End With
End Sub

字符串
建议包含Option Explicit以避免一些编码错误。例如Dim lngastRow As Long该变量与稍后使用的变量（lngLastRow = Sheets("Invoice")....）不同。