Sub 宏1()
Dim m As String
For i = 2 To 40000
    If Cells(i, 3) <> "" Then
       m = Cells(i, 3)
       Cells(i, 3).Select
       Selection.NumberFormatLocal = "@"
       Cells(i, 3) = m
    End If
Next

End Sub

Sub 宏1()
    Dim AA As String
    Dim BB As String
    For I = 2 To 5000
       If Cells(I, 1) <> "" Then
          AA = Cells(I, 1)
          BB = Cells(I, 7)
          Cells(I, 1).Select
          Selection.NumberFormatLocal = "@"
          Cells(I, 7).Select
          Selection.NumberFormatLocal = "@"
          Cells(I, 1) = AA
          Cells(I, 7) = BB
       End If
    Next
End Sub

Sub QUTONG()
For I = 2 To 2000
   If Cells(I, 2) <> O Then
      If Cells(I - 1, 2) = Cells(I, 2) Then
         Rows(I + 1 & ":" & I + 1).Select
         Selection.Delete Shift:=xlUp
      End If
    End If
Next
        
End Sub

对所有的单元格格式化：

Sub format_string()
Dim m As String

For i = 1 To 60000
  For j = 1 To 28
    If Cells(i, j) <> "" Then
       m = Cells(i, j)
       Cells(i, j).Select
       Selection.NumberFormatLocal = "@"
       Cells(i, j) = m
    End If
  Next
   
Next

End Sub