vba - 在变量行上插入单元格值

Question

这是我昨天的问题的更新。我想出了如何插入行，现在我只需要弄清楚如何给这些值命名。我需要将月份名称与插入的每一列相关联，因此在插入列的位置我希望该列的第一行显示“一月”。到目前为止，你们都提供了很好的帮助，谢谢！

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

注释掉的部分是我正在寻找的，只是不太确定如何获取它以便它可以替换多个单元格。

编辑：解决了它，它不会让我发布我的答案，但解决方案是将值发布在所有列插入下方。希望这对其他试图解决这个问题的人有所帮助。

Answer 1

知道了！男孩，我觉得自己很笨。这只是我放置的位置。

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