excel - 查找标题从一列到下一列不同的列

Question

想要使用 vba 宏处理一个多列的 excel 电子表格。在电子表格中，列具有表示属性的标题，例如“P.#”，其中 # 从 1 开始并达到更高的值，该值可能因电子表格而异。

例如，以下电子表格：

Excel column    --- U   V   W   --- AX  AY  ---
headers         --- T.1 P.1 C.1     T.2 P.2 ---
date            --- --- --- --- --- --- --- ---

我想拿起 P.# 列并将它们复制到另一个电子表格。我知道如何从一个电子表格复制到另一个，我的问题是在 # 更改时拾取 P 列并将该列复制到另一个电子表格（相同的工作簿）。我被这个轴缠住了！！

标签： excelvba

Answer 1

这就是我的建议：

Dim c As Range, v

For Each c In Application.Intersect(ActiveSheet.Rows(2), ActiveSheet.UsedRange)
    v = Trim(c.Value)
    If v Like "P.#" Or v Like "P.##" Then
        Debug.Print v & " found at " & c.Address & _
                     " on '" & c.Parent.Name & "'"
    End If
Next c