Sub ルックアップ() Range("テーブル1").Select Range("Q2") = WorksheetFunction.VLookup(Range("P2"), Range("テーブル1"), 5, 0) End Sub

Sub sample() '取得したい表を持つURL Const TARGET_URL As String = "https://mulka2.com/lapcenter/lapcombat2/result-list.jsp?event=7218&file=1&class=0" With Worksheets("Sheet1").QueryTables.Add(Connection:="URL;" + TARGET_URL, _ Destination:=…

TEXTSPLIT関数が入ったみたいでもまだ英語みたいこれはVBAでも使えるんだろうか？CSVの扱いに苦労するから、これで開けばゼロ落ちとかしないんだろうか

Sub 文字列検索() '縦の列の変数 Dim 縦の列 As Long '横の列の変数 Dim 横の列 As Long '行はA列の2行目から最終行まで For 縦の列 = 2 To Cells(Rows.Count, 1).End(xlUp).Row '列はA列から最終列まで For 横の列 = 1 To Cells(1, Columns.Count).End(xlTo…