Vba找到数据最后一列移动到空白列，清空这一列

以下是一个示例VBA代码，可用于找到数据最后一列并将其移动到下一个空白列，并清空该列：

Sub MoveAndClearLastColumn()
Dim lastCol As Integer
Dim nextCol As Integer
Dim lastRow As Integer

'找到最后一列
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column

'找到下一个空白列
nextCol = lastCol + 1
While Cells(1, nextCol) <> ""
nextCol = nextCol + 1
Wend

'将最后一列移动到下一个空白列
Columns(lastCol).Cut Destination:=Columns(nextCol)

'清空最后一列
lastRow = Cells(Rows.Count, lastCol).End(xlUp).Row
Range(Cells(1, lastCol), Cells(lastRow, lastCol)).ClearContents

End Sub

请注意，此代码假定您的数据不包含任何合并单元格。如果您的数据包含合并单元格，则此代码可能会引起问题。