VBA計算在選定的一列中有資料的儲存格數量(已解決)

excel vba vba

lhhh1204 2023-02-07 12:02:14 ‧ 1549 瀏覽

分享至

各位大大好，
想要用VBA計算在選定的一列中有資料的儲存格數量，並且從指定儲存格cells(x,10)開始往右計算，
想請問各位應該怎麼改劃紅線的那行，或是有推薦的其他方法~
感謝各位！

補上圖片，謝謝提醒~

雷峰 iT邦研究生 1 級 ‧ 2023-02-07 12:16:33 檢舉

沒有圖片0.0

froce iT邦大師 1 級 ‧ 2023-02-07 13:23:53 檢舉

https://officeguide.cc/excel-vba-find-row-column-cell-tutorial-examples/

另外最簡單的方式就是找出最後的row number後，減掉開頭的

lhhh1204 iT邦新手 5 級 ‧ 2023-02-07 14:21:01 檢舉

感謝，減掉開頭儲存格後數字就對了
這是最後使用的式子：
w = Cells(x, Columns.Count).End(xlToLeft).Column - 9

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

孫守真任真甫

iT邦研究生 4 級 ‧ 2023-02-07 14:32:01

菩薩慈悲：
　　看是不是您要的結果，再討論。感恩感恩　南無阿彌陀佛

Option Explicit
Sub CountNonEmptyCells()
    Dim W, X  As Integer, lastColumn As Integer, sum, i As Integer, count As Integer
    For X = 2 To 5
        lastColumn = Cells(X, Columns.count).End(xlToLeft).Column
        For i = 10 To lastColumn
            If Cells(X, i) <> "" Then
                count = count + 1
                sum = sum + Cells(X, i)
            End If
        Next i
        W = sum
        MsgBox W
    Next X
End Sub

sum是儲存格內數字的總和
count則是有資料的儲存格總數量
看菩薩您的需求是什麼阿彌陀佛

Option Explicit
Sub CountNonEmptyCells()
    Dim W, X  As Integer, lastColumn As Integer, sum, i As Integer, count As Integer
    For X = 2 To 5
        lastColumn = Cells(X, Columns.count).End(xlToLeft).Column
        For i = 10 To lastColumn
            If Cells(X, i) <> "" Then
                count = count + 1
                sum = sum + Cells(X, i)
            End If
        Next i
        W = sum
        MsgBox "第" & X & "列  總和:" & W & " 有資料的儲存格總數量:" & count
        sum = 0: count = 0
    Next X
End Sub

感恩chatGPT大菩薩的提示指導。感恩感恩　讚歎讚歎　南無阿彌陀佛