Question

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

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

在可变行上插入单元格值

1 个答案: