1 Sub link() 2 Dim num, sheetname 3 4 Worksheets(1).Select 5 6 num = WorksheetFunction.CountA(Columns("c:c")) 7 'MsgBox num 8 9 For i = 2 To ...
確定! 回上一頁