½Ð±Ð ¤½¦¡_¸õÄæ¨Ã¥B²Å¦X±ø¥ó¤~¥[Á`
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-10-21
|
¦^´_ 9# ã´£³¡ªL
Arr = Range(Cells(R, "AG"), Cells(10, C))
³o¦æ¬O³]©w¸ê®Æ½d³ò! ¤£À´
Cells(R, "AG") ¬O10
Cells(10, C) ¬O0
Arr = Range(10, 0)
¬°¤°»ò??
½Ð¦A«ü¾É |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 2827
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2883
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-10-27
|
¦^´_ 11# Andy2483
Dim Arr, Brr, R&, C&, i&, j&, k%, xArea As Range
R = Cells(Rows.Count, "d").End(xlUp).Row
MsgBox R & "(DÄæ³Ì«á¤@¦æ)"
C = Cells(12, Columns.Count).End(xlToLeft).Column
MsgBox C & "(³Ì¥k¤@Äæ)--¦ì§}:" & Cells(12, C).Address
Set xArea = Range(Cells(R, "AG"), Cells(10, C))
MsgBox "¸ê®Æ½d³ò:" & xArea.Address
'Arr = Range(Cells(R, "AG"), Cells( |
|
|
|
|
|
|
- ©«¤l
- 2827
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2883
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-10-27
|
¥»©«³Ì«á¥Ñ ã´£³¡ªL ©ó 2020-8-24 18:44 ½s¿è
¤£µM¥Î¤½¦¡??
AC13:
=SUMIF($AG$10:$GW$10,"*",AG13:GW13)-SUMIF($AG$10:$GW$10,"«e¸m*",AG13:GW13)
©Î
=SUMPRODUCT(--(LEFT($AG$10:$GW$10&"«e¸m",2)<>"«e¸m"),AG13:GW13)
¥k©Ô3®æ, ¤U©Ô
pºâ¦ì§}¥k©Ô®É, ¬O²¾¦ìªº, ¦Û¦æ°Ñ°u~~ |
|
|
|
|
|
|
- ©«¤l
- 2827
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2883
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-10-27
|
VBA¤¤ªº°}¦C¥Îªk, n¦ÂI¤F¸Ñ,
³Ì¦n¤]²z¸Ñ¦r¨å¥Îªk,
¦r¨å+°}¦C, ¥i³B²z«Ü¦hºØ¸ê®Æªº³B²z¤Î²Îp¹Bºâ»Ý¨D,
§_«hÀHµÛ¸ê®Æ¶V¦h, ´N¶V¤£¦n³B²z~~ |
|
|
|
|
|
|
- ©«¤l
- 2827
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2883
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-10-27
|
Sub TEST2()
Dim Arr, Brr, R&, C&, i&, j&, k%
R = Cells(Rows.Count, "d").End(xlUp).Row
C = Cells(12, Columns.Count).End(xlToLeft).Column
Arr = Range([A1], Cells(R, C))
ReDim Brr(1 To UBound(Arr) - 12, 1 To 3)
For i = 13 To UBound(Arr)
For j = [AG1].Column To UBound(Arr, 2) Step 4
If Left(Arr(10, j), 2) = "«e¸m" Then GoTo j01
For k = 1 To 3
Brr(i - 12, k) = Brr(i - 12, k) + Arr(i, j + k - 1)
Next k
j01: Next j
Next i
[AC13].Resize(UBound(Brr), 3) = Brr
End Sub
§ï¦¨³o¼Ë¬O§_¸û©ö²z¸Ñ?
Cells(R, C) ´N¬O¸ê®Æ°Ï³Ì¥k/³Ì¤U¤@®æ
Range([A1], Cells(R, C)) ±qa1¦V¤U/¦V¥kªº°Ï°ì
================================== |
|
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-10-21
|
¦^´_ 15# ã´£³¡ªL
ÁÙ¨S¦³¥ÎPC´ú¸Õ
¥Hµ²ªG¤Ï±À¸Ì±µ{½Xªº·N¸q ¤j·§¤F¸Ñ
1.¨âÓ®e¾¹ Arr¸Ëì¨Óªº¸ê®Æ Brr¸Ë¦^°éªºµ²ªG
UBound(Arr¡^¬O«üArrªºÁa¦V°}¦C¼Æ
UBound(Arr, 2¡^¬O«üArrªº¾î¦V°}¦C¼Æ
2. Arr = Range(Cells(R, "AG"), Cells(10, C))¬O¤Ï¹ï¨¤©w¸q½d³ò¶Ü¡H
¨S¬Ý¹L ´N·W¤F
ÁÂÁ«ü¾É
©ú¦¥X®t ¼·ªÅÄ~Äò¬ã²ß ÁÙ¦³¤½¦¡ª©©O ¯u´Á«Ý |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-10-21
|
¦^´_ 9# ã´£³¡ªL
«e½úªº°j°é¤ñ¸ûÃø ,´«Ó¨¤«×¤ñ¸û¬Ý±oÀ´
¥i¯à¸ò¤ß¹Ò¦³Ãö§a
±zµL¨pªº§âÀ´ªº¶Ç±Âµ¹§ÚÌ ¦¨´N§ÚÌ
Andy¥uÀ´±o±µ¨ü«e½úªº«ü¾É ¼Wªø¦Û¤v
ÁÂÁÂ
For k = 1 To 3
For i = 4 To UBound(Arr)
For j = 1 To UBound(Arr, 2) Step 4
If Left(Arr(1, j), 2) = "«e¸m" Then GoTo j01
Brr(i - 3, k) = Brr(i - 3, k) + Arr(i, j + k - 1)
j01: Next j
Next i
Next k |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-10-21
|
¦^´_ 9# ã´£³¡ªL
¹ï¤£°_ !
§Ñ¤F°Ý°j°é¤è¦¡¤£¦P°õ¦æ®Ä²v¦³®t§O¶Ü? |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-10-21
|
¦^´_ 18# Andy2483
ÁÙ¨S¦³´ú¸Õ ¦ýÀ³¸Ó¦³®t
¦]¬°¤Ö§PÂ_ «e¸m «Ü¦h¦¸
´Nª½±µ¸õ¨ì j01
¼·ªÅ¦A´ú¸Õ ¾Ç²ß |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-10-21
|
¦^´_ 14# ã´£³¡ªL
·d¤£À´ þ¸Ì¿ù
¤À¶µ¤ñÁ`©M¤j |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|