[µo°Ý]½Ð±Ð¦³ÃöVBA¸ê®Æ¤ñ¹ï
- ©«¤l
- 12
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 365
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-3-27
- ³Ì«áµn¿ý
- 2021-7-4
|
[µ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 |
|
|
|
|
|
|
- ©«¤l
- 12
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 365
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-3-27
- ³Ì«áµn¿ý
- 2021-7-4
|
·PÁÂKubi¤j¤j´£¨Ñ¤èªk¡A§Ú³oºÝ¦A¸Õ¸Õ¬Ý¡A«D±`·PÁ±zªºÀ°¦£~~
§Ú³oºÝ¦b½×¾Â¡Bºô¸ôª¦¤å¥u¦³¸Ñ¨M¶Ç°eȪº¤èªk(¥ªÃä¡÷¥kÃä)¡A¦ý¬O¦X¨Ö¦P¦Cª÷ÃBªº³¡¤À´N¥d¦í¤F¡A³o¸Ì¯uªºª×ªêÂÃÀs¡A¦A¦¸·PÁÂKubi«e½ú!! |
|
|
|
|
|
|
- ©«¤l
- 79
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 148
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW7
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-5-21
- ³Ì«áµn¿ý
- 2023-3-13
|
Sub test()
i = 3
Do Until Cells(i, 1) = ""
Index_a = Cells(i, 1)
k = 3
Do Until Cells(k, 12) = ""
Index_b = Cells(k, 12)
If Index_a = Index_b Then
For t = 1 To 9
Cells(k, 12 + t) = Cells(k, 12 + t) + Cells(i, 1 + t)
Next t
End If
k = k + 1
Loop
i = i + 1
Loop
End Sub
ÁÙ¨S°µ 4. Y¹ïÀ³¤£¨ì¡A¥kºÝÁ`ªín¸É¤W0
¤¬¬Û¥æ¬y |
|
|
|
|
|
|
- ©«¤l
- 12
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 365
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-3-27
- ³Ì«áµn¿ý
- 2021-7-4
|
©êºp¡A¤@¦£§Ñ¤F¦^ÂФj®a~~
·PÁÂKubi¤j¤j»Padrian_9832¤j¤j¡A§Ú¦Û¤v¤]ÁÙ¦b¾Ç²ß¤¤¡A¦A¦¸·PÁÂ!! |
|
|
|
|
|
|