Yahoo Answers is shutting down on May 4th, 2021 (Eastern Time) and beginning April 20th, 2021 (Eastern Time) the Yahoo Answers website will be in read-only mode. There will be no changes to other Yahoo properties or services, or your Yahoo account. You can find more information about the Yahoo Answers shutdown and how to download your data on this help page.

馬尼 asked in 電腦與網際網路軟體 · 1 decade ago

如何在VBA中計算SHEET中存有資料的列數

如題

我的EXCEL資料很亂,有的名名就只有A1:A10 十列

但空白列卻到六萬多列..我想用VBA去計算真正有資料的列數

我的資料一定是連續的(EX:A1~A10 不會A1~A5然後又從A7~A10)

所以我想我是否應該用迴圈寫法去計算

判斷ColumnA一發現為空就跳出迴圈,

而跳出前算的就是我有資料的列數

這樣就不會浪費資源去算到六萬多列

如果我想要這樣做

我應該怎麼寫呢

可以請有經驗的大大指導我一下嗎?

Update:

如果我是要算特定某SHEETS~那我應該在CELLS前面加上什麼嗎

我打sheets("all").cells(1,i).value會出錯耶

1 Answer

Rating
  • 1 decade ago
    Favorite Answer

    利用下列巨集即可

    Sub Macro1()

    '

    ' Macro1 Macro

    ' Johnny 在 2007/8/15 錄製的巨集

    '

    '

    For i = 1 To 65536

    If Cells(i, 1).Value = "" Then

    MsgBox "資料到 A" & i - 1 & " 為止"

    Exit For

    End If

    Next i

    End Sub

    2007-08-16 14:05:35 補充:

    你可以在最前面加一列程式

    Sheets("Sheet2").Select

    其中 Sheet2 要換成你 Sheet 的名稱

    這樣就會先切到你的 Sheet 再做檢查了

    若要照你的方式,把 all 換成你實際的 Sheet 名稱就可以了

Still have questions? Get your answers by asking now.