c_c_lai

¦^´_ 1# pcwh3
¬O³o¼Ë»ò¡H

1. Sub test20160903()
   
2.     Dim lc As Integer
   
3. 
   
4.     lc = [bz1].End(xlToLeft).Column
   
5.     '  MsgBox lc
   
6. 
   
7.     [a1] = "=sum(" & ExChg(1, lc - 10) & ", " & ExChg(1, lc - 1) & ")"
   
8.     [a2] = "=sum(b2:" & ExChg(2, lc - 1) & ")"
   
9. End Sub
   
10. 
    
11. Function ExChg(r As Integer, c As Integer) As String
    
12.     ExChg = Chr(64 + c) & CStr(r)
    
13. End Function

½Æ»s¥N½X

c_c_lai

¦^´_ 1# pcwh3

¤U¸ü (33.36 KB)

2016-9-3 14:35

c_c_lai

¦^´_ 4# pcwh3
§A¬O»¡±N lc = [bz1].End(xlToLeft).Column
§ï¦¨ lc = [ba1].End(xlToLeft).Column ?
¨äµ²ªG¬O¤@¼Ëªº¡C

c_c_lai

¦^´_ 4# pcwh3
§Aªº [A2] ¤½¦¡¬°¡G
[a2] = "=sum(b2: cells(2,lc-1))"
«ç¥i¯à [a2] = =sum(b2:az2)¤~¬O¥¿½T???

c_c_lai

¦^´_ 7# ­ã´£³¡ªL
ÁÂÁª©¤jªº«ü¾É¡A¤SÁA¸Ñ¤F¥t¤@ºØªºªí¥Ü¤è¦¡¡A
¯u¦hÁ¡I

¤U¸ü (54.7 KB)

2016-9-3 17:32