為廳@五條港 為廳...生活雜記隨寫

4愛的鼓勵 0訂閱站台

將資料改為大寫

Range("A1") = UCase(letter)

計算總共有幾筆資料

k = Range("B2").CurrentRegion.Rows.Count

資料累加

my_num1 = 0
my_num2 = 0
i = 1
Sheets("生產分析").Select
Range("Q3").Select
 
 Set r1 = Sheets("生產分析").[A4]
    Do While r1 <> ""
    my_num1 = my_num1 + ActiveCell.Offset(i, 0).Range("A1")
    my_num2 = my_num2 + ActiveCell.Offset(i, 3).Range("A1")
    Set r1 = r1.Offset(1, 0)
    i = i + 1
    Loop