|
发表于 2013-3-23 10:04
|
显示全部楼层
本楼为最佳答案
- Sub test()
- Dim A, B, d, i%
- With Sheets("sheet1")
- A = .Range("a4:c" & .Range("A65536").End(xlUp).Row)
- End With
- With Sheets("sheet3")
- B = .Range("a10:c" & .Range("A65536").End(xlUp).Row)
- End With
- Set d = CreateObject("scripting.dictionary")
- For i = 1 To UBound(A)
- d(A(i, 1) & "") = A(i, 3)
- Next i
- For i = 1 To UBound(B)
- B(i, 3) = d(B(i, 1) & "")
- Next i
-
- With Sheets("sheet3")
- .Range("a:c").NumberFormat = "@"
- .Range("a10:c65536").ClearContents '自己决定
- .Range("a10").Resize(UBound(B), UBound(B, 2)).Value = B
- End With
- End Sub
复制代码
对应写入数据2.rar
(12.4 KB, 下载次数: 22)
|
评分
-
查看全部评分
|