在VBA上，如何选择一行中的第一个非零单元格并将其移到右一个插槽中？

Sub MoveNonZeroCell()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要操作的范围，例如第一行的A列到Z列
    Set rng = Range("A1:Z1")
    
    ' 循环遍历范围内的每个单元格
    For Each cell In rng
        ' 判断单元格的值是否为零
        If cell.Value <> 0 Then
            ' 将当前单元格的值复制到右边一个插槽中
            cell.Copy cell.Offset(0, 1)
            ' 清空当前单元格的值
            cell.ClearContents
            ' 退出循环
            Exit For
        End If
    Next cell
End Sub