VB 宏如下:
- Sub Macro1()
- Dim i, j, k, n As Integer
- Dim cols As String
- Dim s(1 To 2) As Integer
- For i = 64 To 90
- If i < 65 Then
- s(2) = 32
- Else
- s(2) = i
- End If
- For j = 64 To 90
- If j < 65 Then
- s(1) = 32
- Else
- s(1) = j
- End If
- For k = 65 To 90
- n = 1
- cols = Chr(s(2)) & Chr(s(1)) & Chr(k)
- cols = Replace(cols, Chr(32), "")
- If Range(cols & "1").Text = "" Then GoTo OutLoop '列首为空工作结束
- While (Range("A" & n).Text <> "") '行首为空该次循环结束
- Range(cols & n) = Trim(Range(cols & n).Text)
- n = n + 1
- Wend
- Next k
- Next j
- Next i
- OutLoop:
- MsgBox "The End!", vbOKOnly, "Tip"
- End Sub
备注:
1. 行、列数自动匹配,仅当行、列首单元格内容非空时该单元格才会被操作。
来源: