将具有特定标题的工作表列复制到另一个工作表上的不同列中

Question

我可以在第一个工作表上找到具有特定数据标题的列。然后想要将这些列中的每一个复制到另一个工作表，不同的列。这最终会跳过第一个工作表上我不需要的大部分数据。从一个实验到另一个实验的数据发生了变化，所以我需要一个通用宏。

使用 Stackoverflow 进行搜索并尝试了以下几种变体：

Sub copy_pressure_columns()
Dim oSWksht     As Excel.Worksheet
Dim oDWksht     As Excel.Worksheet
Dim c As Range, v
Dim k As Range, j
Set oSWksht = ActiveWorkbook.Worksheets("hscth_exp_50g_wall_jan20")
Set oDWksht = ActiveWorkbook.Worksheets("Sheet1")
j = 3
For Each c In Application.Intersect(oSWksht.Rows(2), oSWksht.UsedRange)
  v = Trim(c.Value)
  If v Like "P.#" Or v Like "P.##" Then
    Debug.Print v & " found at " & c.Column & _
                 " on '" & c.Parent.Name & "'"
    Debug.Print " from column " & c.Column & _
                 " to column '" & j & "'"
     Sheets(oSWksht).Columns(c.Column).Copy Destination:=Sheets(oDWksht).Columns(j.Column)
    j = j + 1
  End If
Next c
End Sub

Answer 1

这应该可行：

c.EntireColumn.Copy Destination:=oDWksht.Cells(1, j)

如果它仍然在跳过数据，那么它将有助于提供一些应该被复制但没有被复制的东西的例子