Копировать столбцы листа с определенным заголовком в другой столбец на другом листе

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)

Если данные по-прежнему пропускаются, это поможет предоставить пример того, что должно быть скопировано, но не