Excel VBA代码修改需求：兼容字母数字混合数据的行转列

原代码在A列仅为纯数字时正常运行，但遇到字母或混合文本就报错“Type Mismatch”，核心问题是变量类型不兼容，以下是修改后的可用代码及说明：

修改后的完整代码 #

Sub Arrange()

Dim mA As Long, nA As Long, mB As Long, nB As Long
Dim idx As Variant ' 改为Variant兼容文本与数字
Dim eRow As Long, eCol As Long
Dim LastCell As Range
Dim wsA As Worksheet, wsB As Worksheet

Set wsA = ActiveWorkbook.Sheets("Sheet1")
Set wsB = ActiveWorkbook.Sheets("Sheet2")
Set LastCell = wsA.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)

eRow = LastCell.Row
eCol = LastCell.Column

For mA = 1 To eRow
    ' 替换原数字判断，改为直接检查单元格非空
    If wsA.Cells(mA, 1).Value <> "" Then
        idx = wsA.Cells(mA, 1).Value
        nB = 0
    End If
    For nA = 1 To eCol
        If Not mB = idx Then mB = mB + 1
        If Not Len(wsA.Cells(mA, nA)) = 0 Then
            If mB = idx Then nB = nB + 1
            wsB.Cells(mB, nB) = wsA.Cells(mA, nA)
        End If
    Next
Next

End Sub

核心修改说明 #

1. 变量类型适配：把idx的类型从Long（仅支持整数）改为Variant，这个类型可以存储任何数据，不管是数字还是字母混合文本，从根源避免类型不匹配。
2. 非空判断修正：原代码用Not wsA.Cells(mA, 1) = 0判断，只有数字场景有效，文本和0比较会直接报错。改成wsA.Cells(mA, 1).Value <> ""，直接检查单元格是否有内容，兼容所有数据类型。
3. 自动类型兼容：idx变为Variant后，和mB（Long类型）比较时，VBA会自动处理类型转换，不会再出现类型冲突问题。

内容的提问来源于stack exchange，提问作者Wardex