- ©«¤l
- 60
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 64
- ÂI¦W
- 0
- §@·~¨t²Î
- w7-32
- ³nÅ骩¥»
- 2013.2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-11-23
- ³Ì«áµn¿ý
- 2016-6-6
|
¦^´_ koo
¤p§Ì¤£¤~,À³¸Ó¦³§ó§Öªº¤èªk,³oÃä´£¨Ñ±z§Ú·|ªº¤è¦¡
¦³¨ä¥L¤j¤j¤]¥i´£¥X,¤p§Ì¥[¥H¾Ç²ß
PKKO µoªí©ó 2014-11-23 12:01
·PÁ¤j¤j°ÝÃD¤w¸Ñ
ì¨Ó¬O¿ù¦b¤@ª½¥Îk=k+1
Sub test()
For i = 1 To 20
For j = 1 To 20
For h = 2 To Sheets.Count
Num = WorksheetFunction.CountA(Sheets(h).Cells(i, j))
k = k + Num
Next h
Cells(i, j) = k
k = 0
Next j
Next i
End Sub |
|