MAC VBA尝试从每个工作表中剪切一个单元格，并将其粘贴到下一个空单元格中的另一个工作表中

Sub CutAndPaste()
    Dim ws As Worksheet
    Dim rng As Range
    Dim destSheet As Worksheet
    Dim destRange As Range
    
    ' 循环遍历每个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 检查工作表是否为空
        If WorksheetFunction.CountA(ws.Cells) <> 0 Then
            ' 获取第一个非空单元格的范围
            Set rng = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
            
            ' 检查是否找到非空单元格
            If Not rng Is Nothing Then
                ' 获取目标工作表
                Set destSheet = ThisWorkbook.Worksheets(ws.Index + 1)
                
                ' 获取目标工作表的下一个空单元格
                Set destRange = destSheet.Cells(destSheet.Rows.Count, 1).End(xlUp).Offset(1)
                
                ' 剪切并粘贴单元格
                rng.Cut destRange
            End If
        End If
    Next ws
End Sub