Question

我正在做一个Excel VBA项目。我有一个excel文件中的数据如下

aa bb
aa bb
aa bb
aa bb
aa bb

我想将所有bb值复制到aa值下方的空白单元格中，以便它显示为这样。

aa
aa
aa
aa
aa
bb
bb
bb
bb
bb

如果我的aa值的长度可变并且aa列中的空白单元格不是确定的单元格，是否有VBA代码可以帮助我？

谢谢！

Answer 1

您可以使用此代码（我认为您的bb值从B1单元格开始，但您可以轻松更改它：“

Sub test()
   Dim lastrowA As Long, lastrowB As Long
   'determining last row of aa values'
   lastrowA = Range("A" & Rows.Count).End(xlUp).Row
   'determining last row of bb values'
   lastrowB = Range("B" & Rows.Count).End(xlUp).Row

   'cut and paste (suppose that your bb values starts from B1)'
   Range("B1:B" & lastrowB).Cut Range("A" & lastrowA + 1)

End Sub

在列中的空白单元格中剪切和粘贴数据值

1 个答案: