一个关于批量替换和区域转换为列的问题

pliz

请教一个关于批量替换和区域转换为列的问题，详见附件，谢谢！

yaojil

区域转换为列.rar (33.22 KB, 下载次数: 9)

2011-5-24 17:29 上传

点击文件名下载附件

doitbest

Public Sub eer()
Dim arr(), x As Range, n
With Sheets("源数据")
For Each x In .Range(.Cells(7, 4), .Cells(.[a65536].End(xlUp).Row, .UsedRange.Columns.Count))
n = n + 1
ReDim Preserve arr(1 To 4, 1 To n)
arr(1, n) = .Cells(x.Row, 1).Value
arr(2, n) = .Cells(x.Row, 2).Value
arr(3, n) = .Cells(x.Row, 3).Value
arr(4, n) = IIf(x.Value = 1, .Cells(6, x.Column).Value, "")
Next x
End With
Sheets.Add after:=Sheets(Sheets.Count)
[a1:d1] = Array("姓名", "性别", "时间1", "时间2")
[a2].Resize(n, 4) = Application.Transpose(arr)
End Sub

doitbest

上一参考附件

pliz

谢谢！！！！！！！！！！！！！