スプレッドシートの列の内容 (できれば指定された値) に列ヘッダーの値を追加する単純なマクロが必要です。
可能であれば、マクロが特定の列にのみ適用されるように、VBA (Col1="Location") で列名を指定したいと思います。
例: マクロが検索する必要がある列ヘッダーとして "Location" を指定し、A1 のヘッダーとして "Location" が指定されている場合、A のすべてに "Location: " を先頭に追加する必要があります。基本的に、ヘッダーは + ": " です。
したがって、この:
Location
A04B25
A05B89
B58C23
これは次のようになります。
Location
Location: A04B25
Location: A05B89
Location: B58C23
このマクロは、各列を循環し、その列ヘッダーの値をリストにある列の値に追加する必要があります。
これは私が使用しようとしているコードで、動作していません:
Sub AppendHeader()
Dim i, LastCol
LastCol = Range("IV1").End(xlToLeft).Column
For i = 1 To LastCol
If UCase(Cells(1, i).Value) = "Local SKU" Then
Cells(1, i).EntireColumn.Append = UCase(Cells(1, i).Value) + ": "
End If
If UCase(Cells(1, i).Value) = "Supplier's SKU" Then
Cells(1, i).EntireColumn.Append = UCase(Cells(1, i).Value) + ": "
End If
Next
End Sub