如何在excel中vba添加指定格式的一行

2025-11-07 10:22:59

1、Private Sub CommandButton2_Click()Dim i As StringDim j As String i = 18’拷贝左上角18的行j = 21‘从左上角21行开始拷贝

Rows(i).SelectSelection.CopyRows(j).SelectRows(j).Insert Shift:=xlDownActiveSheet.Pastei = i + 3‘因为这里面需要拷贝的单元格是通过三行合并成的j = j + 3

End Sub

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。