[µo°Ý]½Ð±Ð¦³ÃöVBA¸ê®Æ¤ñ¹ï
- ©«¤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 |
|
|
|
|
|
|