素人のVBA備忘録

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

カンマ区切り結合(Join)カンマ区切り分解(Sprit)

メールをCCやBCCなどで一斉送信するときが多いのですが、都度宛先が変わったり、また多いときは50件くらいまとめての送信になったり…これってかなり面倒です。 お隣のパートのおばちゃんは、1件ずつコピペしてたので、こうやるといいよ。と教えてやったら、…

特定の名前のシートを取り出すVBAコード

特定の名前のシートを取り出すVBAコードはコチラ Sub 売上から始まるワークシート名の一覧を取り出す() Dim i As Long 'ダミーのワークシートを一番左に新規挿入 Worksheets.Add before:=Worksheets(1) For i = 1 To Worksheets.Count '売上から始まるシート…

空白行を削除するVBA

空白行を削除するコードはこちら Sub Macro210301_03() Dim i As Long, LastRow As Long '最終セルの行番号の変数指定 LastRow = Cells(Rows.Count, 1).End(xlUp).Row '最終セルの行から2行目までの範囲指定 For i = LastRow To 2 Step -1 'C列が空白だった…

単価×数量のVBAコード

単価×数量のコードはこちら Sub Macro210301_02() Dim i As Long, LastRow As Long '最終セルの行番号の変数指定 LastRow = Cells(Rows.Count, 1).End(xlUp).Row '2行目から最終セルの行の範囲指定 For i = 2 To LastRow '数量がが51以上だったら If Cells(i…

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) <> "" The…