- ©«¤l
- 2833
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2889
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-12
|
- Sub Macro1()
- Dim xR As Range, N&
- For Each xR In Range([A2], [A65536].End(3))
- If Trim(xR) = "¤pp" Then
- If N > 0 Then xR(1, 2) = "=SUM(" & Range(xR(0, 2), xR(1 - N, 2)).Address & ")": N = 0
- If N = 0 Then GoTo 101
- End If
- N = N + 1
- If Trim(xR) = "Á`p" Then xR(1, 2) = "=SUMIF(R1C[-1]:R[-1]C[-1],""*¤pp*"",R1C:R[-1]C)"
- 101: Next
- End Sub
½Æ»s¥N½X- Sub Macro2()
- Dim xR As Range, N&
- For Each xR In Range([A2], [A65536].End(3))
- If Trim(xR) = "¤pp" Then xR(1, 2) = _
- "=SUM(R1C:R[-1]C)-SUMIF(R1C[-1]:R[-1]C[-1],""*¤pp*"",R1C:R[-1]C)*2"
- If Trim(xR) = "Á`p" Then xR(1, 2) = "=SUMIF(R1C[-1]:R[-1]C[-1],""*¤pp*"",R1C:R[-1]C)"
- Next
- End Sub
½Æ»s¥N½X ¨âºØ¤èªk!!! |
|