这里给出一个示例代码，可以将水平着色的宏程序转换为垂直着色。代码中，将水平着色的宏程序中的每一行都转换为一列，使其成为一个垂直着色的宏程序。

Sub ConvertHorizontalToVerticalColoring() Dim i As Integer Dim j As Integer Dim k As Integer Dim l As Integer Dim m As Integer Dim SelectedRange As Range Dim TempArray() As Variant Dim TransposedArray() As Variant

Set SelectedRange = Selection TempArray = SelectedRange.Value ReDim TransposedArray(1 To UBound(TempArray, 2), 1 To UBound(TempArray, 1))

For i = 1 To UBound(TempArray, 1) k = 1 For j = 1 To UBound(TempArray, 2) Step 2 TransposedArray(k, i) = TempArray(i, j) TransposedArray(k + 1, i) = TempArray(i, j + 1) k = k + 2 Next j Next i

SelectedRange.ClearContents SelectedRange.Resize(UBound(TransposedArray, 1), UBound(TransposedArray, 2)).Value = TransposedArray End Sub