思い出しVBA#1

2020年12月14日 00:52

昨年の今頃、必死になってVBAを習得したのに、使う必要がなくなったとたんに全部頭から抜ける癖、どうにかしたいですね…1年ぶりのVBAです。基本的なところから。

〇今回の目的

・行のヘッダーに見出しを書く
・データをコピペする
・条件に合った複数行を削除する
・これらの検索を英語で？

〇行のヘッダーに見出しを書く

今回入れたい見出しのヘッダーは固定（決まった場所）なので、簡単です。
G1のセルに、「F1の見出し＋_5」という見出しを付けたいみたいです。

Range("G1").Value = Range("F1").Value & "_5"

ありがとう、Range。

〇データをコピペする

ある範囲のデータをコピーして、ペーストする範囲を指定し、ペーストする。そしてコピーモードを解除する。

Range("F2:F9").Copy    'ある範囲のデータをコピーして、
   Range("G2").Select  'ペーストする範囲を指定し、
   ActiveSheet.Paste   'ペーストする。
   Application.CutCopyMode = False 'そしてコピーモードを解除する。

〇条件に合った複数行を削除する

複数行を変数を使って表現するのが最初わからなかったですね。

Dim i
   For i = 2 To 9
       If Cells(i, 4).Value = 0 Then
         Rows(i + 1 & ":" & i + 5).Delete shift:=xlUp
       End If
       
   Next

shift:=xlUPは、削除した後、上にデータを持ってくる、の意味です。

〇これらの検索を英語で？

最初の二項目は調べなかったので割愛。
条件に合った複数行を削除するのは、①行削除②変数を含む行の削除の2個検索。
①はhow to delete row in vbaで検索、引っかかったトップはhow to delete entire row in excel using vba そうか、usingを使えばいいのね…！
②はhow to delete rows with variable using vbaで検索、引っかかったトップはdelete rows using variables

まだまだ続きます、きっと。