½Ð°Ý¦p¦ó­pºâÁ`©M(¨Cµ§¸ê®Æ½d³ò¤£¤@)

yanto913

¦pÃDÀÉ®×Sheet1»PSheet2Á`©Mªº¦ì¸m¤£¤@¼Ë
¦³¦ó»yªk¥i¥H§PÂ_¥X¸ê®Æ½d³òªº¦C°ª»P¦æ°ª
¨ÏSUM¨ç¼Æ¥i¥H¦b¨º­Ó¸ê®Æ®æ°µ¹Bºâ

jackdream

¦³¦ó»yªk¥i¥H§PÂ_¥X¸ê®Æ½d³òªº¦C°ª»P¦æ°ª
¨ÏSUM¨ç¼Æ¥i¥H¦b¨º­Ó¸ê®Æ®æ°µ¹Bºâ
yanto913 µoªí©ó 2011-2-5 22:26

'Åã¥Ü¥Ø«e­¶­±ªº¨Ï¥Î¦C¼Æ
MsgBox ActiveSheet.Range("A1").CurrentRegion.Rows.Count
'Åã¥Ü¥Ø«e­¶­±ªº¨Ï¥ÎÄæ¼Æ
MsgBox ActiveSheet.Range("A1").CurrentRegion.Columns.Count

«Øij:
¦pªGª½±µ·j´M"Á`©M",¦A©¹¥k²¾°Ê¤@®æ§@­pºâ,¤]¥i¥H¹F¨ì±zªº»Ý¨D.

yanto913

ÁÂÁ§A¡I«Ü¨ü¥Î¡A³o¼Ë´N¥i¥Hª¾¹D¸ê®Æ½d³ò¬O¦h¤Ö¶i¦Ó§@Á`©M¹Bºâ
¤£¹L­è­è¸Õ¤@¤UÁÙ¬O¥Î¤£¥X¨Ó¡A¥i§_¥HSheet1¬°¨Ò§@¸Ñµª©O¡H
y = ActiveSheet.Range("A1").CurrentRegion.Rows.Count
¥d¦bActiveCell.cells(5,4) = "SUM(range(cells(2,4):cells(y,4)))"§Ë¤£¥X¨Ó

Hsieh

¦^´_ 3# yanto913


    y = Range("A1").CurrentRegion.Columns.Count - 1
Cells(Rows.Count, 1).End(xlUp).Offset(1, y) = "=SUM(R2C:R[-1]C)"

GBKEE

¦^´_ 1# yanto913

1. Sub Ex()
   
2.     Dim Sh As Worksheet
   
3.     For Each Sh In Sheets(Array("SHEET1", "SHEET2"))
   
4.         With Sh.Range("A1").CurrentRegion
   
5.             .Cells(.Count).Offset(1, -1) = "Á`©M"
   
6.             .Cells(.Count).Offset(1) = Application.Sum(.Columns(.Columns.Count))
   
7.         End With
   
8.     Next
   
9. End Sub

½Æ»s¥N½X

b9208

«D±`¦n¥Îªºµ{¦¡½X
¤U¸ü¦¬¶°
ÁÂÁÂ

yanto913

ÁÂÁÂÀ°¦£¡IÅý§Ú±q­ì¥»¤°»ò³£¤£·|ªºµæ³¾Åܪº¬ÝªºÀ´¤@¨Ç¤Jªùªº»yªk¡A¦A¦¸·PÁÂ

himl18

·PÁ¸ѵª¥¿§V¤O¾Ç²ß¤¤~·PÁÂ!!

tzyun

ÁÂÁ¡A«Ü¨ü¥Î11111111111111111£á