Dim行壹樣長
將列調長
Dim計數器壹樣長，countAll壹樣長
Dim rowCount As Long
rowCount = Worksheets(" sheet 1 ")。range(" a 1 ")current region . entire row . count。
出錯時繼續下壹步
Dim sht作為工作表
Set sht = Worksheets("sheet2 ")
如果錯誤。號碼& lt& gt那麽0
呃。數字= 0
設置sht =工作表。增加
噓。Name = "sheet2 "
如果…就會結束
For Row = 1 To rowCount
For列= 1到10
If工作表(“sheet1”)。單元格(行、列)。那麽值= 20
計數器=計數器+ 1
如果…就會結束
下壹列
噓。單元格(第1行)。值=計數器
countAll = countAll +計數器
計數器= 0
下壹排
噓。單元格(行+ 1，1)。value = " * * *:" & amp；總計數
末端接頭