[已解决]如何用VBA将表1转换成表2的形式

R_W · 发表于 2009-11-7 09:18

大家看看，如何将表1转换成表2的形式？

HO9Rf7Li.rar (2.19 KB, 下载次数: 0)

爱疯 · 发表于 2009-11-7 11:23

YPuHm6WI.rar (12.25 KB, 下载次数: 12)

cjainwei · 发表于 2009-11-7 11:46

Sub tt()
Dim arr, arrtemp1, arrtemp2
Dim i As Long, j As Long, k As Long, l As Integer
With Sheet1
j = .Cells(65536, 1).End(xlUp).Row
arrtemp1 = .Range("A1:A" & j)
ReDim arr(1 To j, 1 To 4)
For i = 1 To j
    If InStr(arrtemp1(i, 1), "第") Then
    l = l + 1
    k = 0
    End If
    k = k + 1
    arr(k, l) = arrtemp1(i, 1)
Next
Sheet2.[A1].Resize(j, 4) = arr
End With
End Sub

R_W · 发表于 2009-11-7 12:59

[em04][em04][em04]

谢谢楼主了，在这里这么快就找到答案了

3楼的也谢谢

zsd5237 · 发表于 2009-11-8 06:20

学习[em02][em02]

		自动登录	找回密码
密码			注册