- Sub 数据转换()
- Dim ar, re
- Dim i As Integer, j As Integer, Cnt As Integer, b As Boolean
- ar = Sheets(1).Range("A1").CurrentRegion
- ReDim re(1 To 999, 1 To 3)
- For i = 2 To UBound(ar)
- b = False
- For j = 2 To UBound(ar, 2)
- If ar(i, j) <> "" Then
- b = True
- Cnt = Cnt + 1
- re(Cnt, 1) = ar(i, 1)
- re(Cnt, 2) = ar(i, j)
- re(Cnt, 3) = ar(1, j)
- End If
- Next j
- If b Then Cnt = Cnt + 1
- Next i
- Sheets(2).Range("A1:C65536").ClearContents
- Sheets(2).[a1].Resize(UBound(re), 3) = re
- End Sub
复制代码 |