パスワードを忘れた? アカウント作成
676673 journal

bluecarの日記: Excelの最終行(桁)を見つける

日記 by bluecar

Endプロパティというので取れるらしい。

いいこと教えてもらった

以下、上記HPに記載のソース
Sub InputFormula()
        Dim i As Integer, myLastClm As Integer
        Dim r As Long
        '最終列を取得
        myLastClm = Range("A1").End(xlToRight).Column

        '最終行を取得
        r = Range("A1").End(xlDown).Row

        'SUM関数を最終行の下に入力
        For i = 1 To myLastClm
                Cells(r + 1, i).FormulaR1C1 = "=SUM(R[" & -r & "]C:R[-1]C)"
        Next i
End

typodupeerror

一つのことを行い、またそれをうまくやるプログラムを書け -- Malcolm Douglas McIlroy

読み込み中...