- ©«¤l
- 214
- ¥DÃD
- 74
- ºëµØ
- 0
- ¿n¤À
- 296
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- hk
- µù¥U®É¶¡
- 2013-6-17
- ³Ì«áµn¿ý
- 2018-11-3
|
test.rar (12.55 KB)
¦^´_ 8# li_hsien
¦btestB>>sheet1>>>[b1]¼g¤½¦¡" =counta(A:A) "
¦btestA>>sheet1>>>[b1]¼g¤½¦¡" =]='C:\Users\Administrator\Desktop\test\[testB.xls]Sheet1'!$B$1 "
¦bthisworkbookªºmodule¼gruxia
¦bmodule1¼gruxia
Private Sub Workbook_Open()
Sheets("sheet1").Activate
Macro1
End Sub
Sub Macro1()
n = [b1]
Range("A2:A" & n).FillDown
End Sub
open testB,²K¥[AÄ椺®e,close testB
open testA·|¦Û°Ê¥Í¦¨§Anªº®ÄªG¤F |
|