エクセルのSheet1にユーザの情報が入っています
ここからNewSheetに保険者番号と保険証番号のみ抽出したいと考えています
下記のサイトを参考にしました。
しかし出力うまくしません、考えられることご教授いただきたいです。
よろしくお願いいたします。
参考サイトURL
Option Explicit Sub GetColumnsWithKeywords() Dim keywords As String keywords = InputBox(" 保険者番号,保険証番号") If keywords = "" Then: Exit Sub Dim ws1 As Worksheet Set ws1 = Worksheets("Sheet1") Dim ws2 As Worksheet Set ws2 = Worksheets.Add(after:=ws1) ws2.Name = "NewSheet" Dim k As Long k = 1 Dim cmax As Long cmax = ws1.UsedRange.Rows.Count Dim rng As Range Dim keyword As Variant Dim i As Long For i = 1 To ws1.UsedRange.Columns.Count Set rng = ws1.Range("A1:A" & cmax).Offset(0, i - 1) Debug.Print rng.Address For Each keyword In Split(keywords, ",") If Not rng.Find(keyword) Is Nothing Then ws1.Columns(i).Copy (ws2.Columns(k)) k = k + 1 Exit For End If Next Next End Sub
回答1件
あなたの回答
tips
プレビュー