素人のVBA備忘録

客先や社内での研修用のVBAのコードを書き留めています。初心者にも分かりやすく書いているつもり?です。参考になれば嬉しいです。

A列のセルの数字を2倍するVBA

コードはコチラ

Sub Macro210301_01()
Dim i As Long, LastRow As Long
'最終セルの行番号の変数指定
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    '2行目から最終セルの行の範囲指定
    For i = 2 To LastRow
    'A列が空白でないとき
    If Cells(i, 1) <> "" Then
        'A列を2倍しB列に代入
        Cells(i, 2) = Cells(i, 1) * 2
    End If
    Next i
End Sub

分かりやすく色分けしました

f:id:gray-to:20210301210434p:plain

以下の条件での計算です

  • 最終行が分からない
  • A列が空欄でない

こんな感じです

f:id:gray-to:20210301163539g:plain

簡単だったでしょうか?
やればできる!
VBAを用いてガンガン楽しましょう(^^)v