如果第一行计算单词＆＃34;结束日期＆＃34;则Excel VBA复制从表1到表2的粘贴列。

Question

我正在尝试创建一个读取Sheet 1第一行的宏，并复制粘贴包含单词＆＃34; End Date＆＃34;的单元格的整列。到第2栏B栏。

非常感谢您的帮助！ 再次感谢

Answer 1

你可以给它一个测试。它会扫描您的标题列“结束日期”，然后复制下面的数据（标题未被复制）并将数据粘贴到Sheet2范围B2（我是假设你在这里也有一个标题）。

您需要将其放入模块中，修改工作表名称（Sheet1＆amp; Sheet2）。

Sub EndDate()

Dim WS As Worksheet
Set WS = ThisWorkbook.Sheets("Sheet1")
Dim i As Integer, LCol As Long, LRow As Long

With WS
    LCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    For i = 1 To LCol
        If .Cells(1, i) = "End Date" Then
            LRow = .Cells(.Rows.Count, i).End(xlUp).Row
            .Range(.Cells(2, i), .Cells(LRow, i)).Copy
            ThisWorkbook.Sheets("Sheet2").Range("B2").PasteSpecial
            Exit Sub
        End If
    Next i
End With

End Sub