求助：用vba在excel的第一行前面插入一行，且同时将插入行的前几个单元格赋值？

achiao

求助：用vba在excel的第一行前面插入一行，且同时将插入行的前几个单元格赋值，怎么弄。请前辈指点。
本人只知道Rows("1:1").Select Selection.Insert.

LangQueS

这样么？

Sub 临时()
Rows(1).Insert       '在第1行前插入1行
Range("a1") = 1
Range("b1") = 2
Range("c1") = 3
End Sub

LangQueS

或者：

Sub 临时()
Rows(1).Insert       '在第1行前插入1行
For a = 1 To 10
Cells(1, a) = a
Next
End Sub

achiao

谢谢版主，问题解决！

芒果王

您好
两个excel 在比较时，若表2 （ arr4）中没有表1（arr5） 的某行数据，则复制数据
怎样通过vba实现呢？
谢谢 祝好
For a = 3 To 100
        For b = 1 To UBound(arr4, 2)
   
         If CStr(arr4(a, 2)) <> CStr(arr5(a, 2)) Then       '如果两列内容相同，则在i行第5列中插入相同内容,并在第i行第6列中插入第4列中的收盘价
      Rows(a).Insert
      Worksheets("sheet3").Cells(a, b).Value = Worksheets("sheet1").Cells(a + 1, b).Value
      
         End If
   
        Next b
   Next a
因为表2中的数据行没有表1多  所以在使用arr4(a, 2)) <> CStr(arr5(a, 2)时  会出现下标越界

lrh788

学习了！！！