0

これは昨日の私の質問の更新です。行を挿入する方法を理解したので、あとはそれらの値に名前を付ける方法を理解するだけです。挿入された各列に月の名前を関連付ける必要があるため、列を挿入する場所では、列の一番上の行に「1 月」と表示する必要があります。皆様、これまで大変お世話になりました。ありがとうございます。

Sub Months()

Dim y As String
y = "Q1"
If y = "" Then Exit Sub
Dim x As Long
For x = Cells(1, Columns.Count).End(xlUp).Column To 1 Step -1
If Cells(1, x).value = y Then
Columns(x).EntireColumn.Insert
'Cell(1,x).value="January"
Columns(x).EntireColumn.Insert
Columns(x).EntireColumn.Insert
End If
Next x

コメントアウトされたセクションは私が探しているものですが、複数のセルを置き換えることができるようにする方法がよくわかりません。

編集:解決しました。回答を投稿できませんが、解決策はすべての列挿入の下に値を投稿することです。うまくいけば、これがこれを理解しようとしている他の人の助けになります。

4

1 に答える 1

0

とった！少年は私がばかげていると感じますか。それはちょうど私が入れていた配置でした.

Dim y As String
y = "Q1"
If y = "" Then Exit Sub
Dim x As Long
For x = Cells(1, Columns.Count).End(xlUp).Column To 1 Step -1
If Cells(1, x).value = y Then
Columns(x).EntireColumn.Insert
Columns(x).EntireColumn.Insert
Columns(x).EntireColumn.Insert
Cells(1, x).value = "January"
Cells(1, x + 1).value = "Febuary"
Cells(1, x + 2).value = "March"
End If
Next x
于 2013-06-28T18:27:13.170 に答える