|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
代码如下,供参考。。。- Sub ykcbf() '//2024.2.1
- Set d = CreateObject("Scripting.Dictionary")
- r = Me.Cells(Rows.Count, "h").End(3).Row
- arr = Me.Range("h1:m" & r)
- For i = 2 To UBound(arr)
- For j = 2 To UBound(arr, 2)
- s = arr(i, 1) & "|" & j
- d(s) = arr(i, j)
- Next
- Next
- r = Me.Cells(Rows.Count, "a").End(3).Row
- arr = Me.Range("a1:d" & r)
- For i = 2 To UBound(arr)
- For j = 2 To UBound(arr, 2)
- s = arr(i, 1) & "|" & j
- arr(i, j) = d(s)
- Next
- Next
- Me.Range("a1:d" & r) = arr
- MsgBox "OK!"
- End Sub
复制代码
|
|