如何用宏自动复制值到下一个空列中

gwjkkkkk

Sub test()
  Dim iRow&
  With Sheets("主线集中")
      ar = .[B2:B27]
      iRow = .Cells(Rows.Count, "B").End(3).Row + 1
      .Cells(iRow, 2).Resize(UBound(ar)) = ar
  End With
End Sub

dmdmdm

gwjkkkkk 发表于 2023-3-5 19:26
Sub test()
  Dim iRow&
  With Sheets("主线集中")

先谢谢你。但是你的代码运行结果是粘贴到b列的下一个空行中了，我要粘贴到右边第一个空列，能帮我改改吗？

gwjkkkkk

dmdmdm 发表于 2023-3-5 19:57
先谢谢你。但是你的代码运行结果是粘贴到b列的下一个空行中了，我要粘贴到右边第一个空列，能帮我改改吗 ...

Sub test()
  Dim iRow&
  With Sheets("主线集中")
      ar = .[B2:B27]
      iRow = .Cells(Rows.Count, "B").End(3).Row + 1
      .Cells(iRow, 2).Resize(UBound(ar)) = ar
  End With
End Sub

taller

dmdmdm 发表于 2023-3-5 15:13
老大，宏运行提示：应用程序定义或对象定义错误

代码笔误，应该是 [B2:B27]

dmdmdm

taller 发表于 2023-3-6 02:26
代码笔误，应该是

不是这个原因，我修改好后还是无法运行。不过还好，我采取先录制宏，然后再修改语句的办法搞定了。还是谢谢你！

dmdmdm

gwjkkkkk 发表于 2023-3-5 20:31
Sub test()
  Dim iRow&
  With Sheets("主线集中")

还是不行的，粘贴在b列了。不过还好，我采取先录制宏，然后再修改语句的办法搞定了。还是谢谢你！，

dmdmdm

该问题以搞定，谢谢各位网页热情相助！