» 您尚未登录:请 登录 | 注册 | 标签 | 帮助 | 小黑屋 |


发新话题
打印

[其他] 请教一个excel问题,如果在指定位置插入两个固定整行的内容?

用vba,很简单。把这个宏弄到工作簿里,假设“品牌”那一列里没有空行
Public Sub AddColumn()

    Dim i As Long
    Dim sCol As String
   
    i = 1   '
    sCol = Application.InputBox("输入“品牌”所在的列名,如A,E等")
   
    While Range(sCol & i).Value <> ""
          If Range(sCol & i).Value = "品牌" Then
             Rows(i & ":" & i + 1).Insert Shift:=xlDown
             Range(sCol & i).Resize(2, 1) = Application.WorksheetFunction.Transpose(Array("备注1", "备注2"))
             i = i + 3
          End If
          i = i + 1
    Wend

End Sub


TOP

发新话题
     
官方公众号及微博