![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
マクロ初心者です。
F列からAJ列までの合計をAK列に数値で入力しようとしています。
ただし、FからAJ列の各セルに全てデータは入っていません。
したがってFからAJ列のいずれかにデータが入っている最終行を
見つけて合計を算入しようとしているのですが下記の通りやっても
うまくいきません。教えてください。
エクセルのバージョンは2002です。
Sub ()
'データが入っている最終行まで合計額を数字で入力
LastRow = Cells(65536, COL).End(xlUp).Row
For i = LastRow To 6 Step -1
Set myRange = Range(Cells(i, 6), Cells(i, 36))
Cells(i, 37).Value = WorksheetFunction.Sum(myRange)
Next i
End Sub
No.2ベストアンサー
- 回答日時:
こんにちは。
以下のように変更してみてください。
Sub test()
Dim i As Long
Dim LastRow As Long
Dim myRange As Range
'
'データが入っている最終行まで合計額を数字で入力
'LastRow = Cells(65536, COL).End(xlUp).Row
LastRow = Get_COL
For i = LastRow To 6 Step -1
Set myRange = Range(Cells(i, 6), Cells(i, 36))
Cells(i, 37).Value = WorksheetFunction.Sum(myRange)
Next
End Sub
'FからAJ列のいずれかにデータが入っている最終行を求める
Function Get_COL() As Long
Dim wR As Long
Dim MRow As Long
Dim cRow As Long
MRow = 0
For wR = 6 To 36
cRow = Cells(Rows.Count, wR).End(xlUp).Row
If MRow < cRow Then
MRow = cRow
End If
Next
Get_COL = MRow
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) 追記する列を増やしたい 2つのデータを検索・照合して元データにないデータを下記マクロで商品名を追記し 9 2022/10/05 10:50
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel2017 フィルタ昇順並びがA...
-
オートフィルタ後のデータから...
-
Excelで並び替え後にア行...
-
エクセルで行の高さ及び列幅の...
-
EXCEL 最終行のデータを他のセ...
-
【Excel VBA】指定した行の最大...
-
マクロで行の高さを設定したい
-
エクセル関数について
-
エクセルの関数についての質問...
-
EXCELで日付を比べ3か月以内の...
-
基準日以前のデータを範囲を指...
-
急ぎ!色のついたセルを非表示...
-
エクセルで円グラフに引き出し...
-
エクセルの主軸と第2軸の0を合...
-
エクセルで文字が白くなる
-
DATEDIFでマイナス表示をさせたい
-
別のシートから値を取得するとき
-
Excelで、空白を表示したい
-
同一セルに日時があるものを日...
-
エクセルで特定の色の数字だけ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel2017 フィルタ昇順並びがA...
-
エクセルで行の高さ及び列幅の...
-
【Excel VBA】指定した行の最大...
-
Excelで並び替え後にア行...
-
急ぎ!色のついたセルを非表示...
-
エクセルの時刻のカウントが出...
-
オートフィルタ後のデータから...
-
基準日以前のデータを範囲を指...
-
EXCEL 最終行のデータを他のセ...
-
マクロで行の高さを設定したい
-
EXCELで日付を比べ3か月以内の...
-
エクセル関数について
-
文字列を比較し、相違するフォ...
-
エクセル VBA 行間隔を飛ばした...
-
Excel VBAでセルのクリアが出来...
-
【Excel】数式の参照範囲を可変...
-
excel / ピポッド 日数を出したい
-
時間の重複チェック
-
検索条件に合うセルの個数を数...
-
複数回答のクロス集計の方法
おすすめ情報