[µo°Ý]½Ð±Ð¦³ÃöVBA¸ê®Æ¤ñ¹ï
- ©«¤l
- 163
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 170
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-9-5
- ³Ì«áµn¿ý
- 2022-7-20
|
¦^´_ 1# david1216jp
½Ð°Ñ¦Ò¡C- Sub test()
- Dim arr
- Dim d As Object
- Set d = CreateObject("Scripting.Dictionary")
- [A1,L1].Value = ""
- arr = [B2].CurrentRegion
- For i = 2 To UBound(arr, 2)
- For j = 2 To UBound(arr)
- d(arr(1, i) & arr(j, 1)) = d(arr(1, i) & arr(j, 1)) + arr(j, i)
- Next j
- Next i
- arr = [M2].CurrentRegion
- For i = 2 To UBound(arr, 2)
- For j = 2 To UBound(arr)
- If d(arr(1, i) & arr(j, 1)) = "" Then
- arr(j, i) = 0
- Else
- arr(j, i) = d(arr(1, i) & arr(j, 1))
- End If
- Next j
- Next i
- [M2].CurrentRegion = arr
- [A1,L1].Value = "Á`ªí"
- Set d = Nothing
- arr = ""
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|