有用的几行VB代码
Sub 竖转横()
Dim a As Long, b As Long, c As Long, d As Long
a = 2: b = 3: c = 2: d = 3
Worksheets("sheet2").Cells(1, 1) = Worksheets("sheet1").Cells(1, 1)
Do Until IsEmpty(Cells(a, 1))
Worksheets("sheet2").Cells(c, 1) = Worksheets("sheet1").Cells(a, 1): Worksheets("sheet2").Cells(c, 2) = Worksheets("sheet1").Cells(a, 2)
Do Until Cells(a, 1) <> Cells(b, 1)
Worksheets("sheet2").Cells(c, d) = Worksheets("sheet1").Cells(b, 2)
a = a + 1
b = b + 1
d = d + 1
Loop
d = 3
a = a + 1
b = b + 1
c = c + 1
Loop
End Sub
Sub 删除BCCH()
Dim a As Long, b As Long, c As Long
a = 2: b = 2: c = 3
Do Until IsEmpty(Cells(a, 1))
Do Until Worksheets("sheet1").Cells(a, 1) = Worksheets("sheet1").Cells(a, b)
b = b + 1
Loop
Worksheets("Sheet1").Cells(a, b).Delete shift:=xlShiftToLeft
b = 2
a = a + 1
Loop
End Sub
Sub 横转竖()
Dim a As Long, b As Long, c As Long
a = 2: b = 2: c = 2
Worksheets("sheet2").Cells(1, 1) = Worksheets("sheet1").Cells(1, 1)
Do Until IsEmpty(Worksheets("sheet1").Cells(a, 1))
Do Until IsEmpty(Worksheets("sheet1").Cells(a, b))
Worksheets("sheet2").Cells(c, 2) = Worksheets("sheet1").Cells(a, b)
Worksheets("sheet2").Cells(c, 1) = Worksheets("sheet1").Cells(a, 1)
c = c + 1
b = b + 1
Loop
b = 2
a = a + 1
Loop
End Sub