不好意思斑竹。
Sub band0621() On Error Resume Next
Dim i, j As Integer Dim x As String Columns("B:IV").Select Selection.NumberFormatLocal = "@" Columns("C:C").Select Application.CutCopyMode = True '数据分列 Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False '移动数据 For i = 1 To 1000 For j = 1 To 1000 If Cells(i, 2 + j) <> "" Then Cells(i + j, 2).Select Selection.NumberFormatLocal = "@" Selection.EntireRow.Insert Cells(i + j, 2) = Cells(i, 2 + j) 'Cells(i + j, 2) = LCase(Cells(i, 2 + j))'如果出现大小写混乱,使用本行代码 Cells(i + j, 1) = Cells(i, 1) Cells(i, 2 + j).Clear Else Exit For End If Next j, i Columns("C:C").Select Selection.Delete Shift:=xlToLeft End Sub |