将最后一列中的公式复制到范围中的下一个空白列和当前列中的pastevalue

Question

我搜索了之前的问题，这些代码适用于整张表的最后一栏，但我遇到的问题是我只想要该范围内的最后一列，所以将BD复制到BE，下个月将BE复制到BF

一旦复制过，我想在BD上粘贴特殊值，所以只留下当前月份列中的公式。

下面的代码总是复制整张纸上的最后一列..

Dim LastRow As Long
Dim LastCol As Long

LastRow = Cells(Rows.Count, "A").End(xlUp).Row 
LastCol = Cells(9, Columns.Count).End(xlToLeft).Column

Cells(9, LastCol).Resize(LastRow - 8).Copy Cells(9, LastCol + 1)

非常感谢你的帮助和时间。

Answer 1

将Columns.Count更改为"BJ"这会将最后一列的起点从工作表上最右边的列更改为列BJ，然后它会向左移动第一个有值的单元格。

Dim LastRow As Long
Dim LastCol As Long

LastRow = Cells(Rows.Count, "A").End(xlUp).Row 
LastCol = Cells(9, "BJ").End(xlToLeft).Column

Cells(9, LastCol).Resize(LastRow - 8).Copy Cells(9, LastCol + 1)