|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub 取数()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
ar = Sheets("原始数据").[a1].CurrentRegion
With Sheets("需求")
r = .Cells(Rows.Count, 1).End(xlUp).Row
y = .Cells(4, Columns.Count).End(xlToLeft).Column
.Range(.Cells(2, 1), .Cells(r + 1, y)) = Empty
br = .Range(.Cells(1, 1), .Cells(UBound(ar), y))
For j = 1 To UBound(br, 2)
If Trim(br(1, j)) <> "" Then
d(Trim(br(1, j))) = j
End If
Next j
n = 1
For i = 2 To UBound(ar)
If Trim(ar(i, 2)) <> "" Then
n = n + 1
For j = 1 To UBound(ar, 2)
lh = d(Trim(ar(1, j)))
If lh <> "" Then
br(n, lh) = ar(i, j)
End If
Next j
End If
Next i
If n = "" Then MsgBox "原始数据为空": End
.[a1].Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub
|
评分
-
1
查看全部评分
-
|