hap********

2022/4/16 16:43

33回答

excel vbaで特定の記号が入っている列の先頭セルの文字列を抜き出したいです。 こんにちは。vba初心者です。

excel vbaで特定の記号が入っている列の先頭セルの文字列を抜き出したいです。 こんにちは。vba初心者です。 エクセルで以下の写真のようなシート「シート1」があったとします。○が検討する項目(Aだったら「りんご」、Bだったら「みかん」、Cだったら「りんご・いちご」)を別シート「シート2」のセルに抽出したいのですが、その時はどのようなコードを入力すればよろしいのでしょうか？ VBAは全くの初心者ですので、言葉足らずなところがありましたらそちらも教えていただけると幸いです。 よろしくお願いします。

画像

Excel | Visual Basic・158閲覧

ベストアンサー

0
sen**********

2022/4/17 1:36

一例です。 中身は自身で調べた方が勉強になりますよ。 Sub OneCase() Dim rng As Range Dim ws As Worksheet Dim lastRow As Long, lastColumn As Long Dim cnt As Long, i As Long, j As Long Const PICUP_ITEM As String = "○" Set ws = Worksheets("Sheet2") With Worksheets("Sheet1") lastRow = .Cells(Rows.Count, "A").End(xlUp).Row lastColumn = .Cells(1, Columns.Count).End(xlToLeft).Column ws.Cells.Clear ws.Range("A1:A" & lastRow - 1).Value = .Range("A2:A" & lastRow).Value For i = 2 To lastRow cnt = 2 For j = 2 To lastColumn If .Cells(i, j).Value = PICUP_ITEM Then ws.Cells(i - 1, cnt).Value = .Cells(1, j).Value cnt = cnt + 1 End If Next j Next i End With End Sub

ThanksImg質問者からのお礼コメント

1番最初に教えてくださったので… ありがとうございます！自身で意味を調べ、調整して理想通りにつかえることができました！本当に助かりました！

お礼日時：5/23 19:27

その他の回答（2件）

0
1150246010

2022/4/19 17:01

意に沿えるかどうか分りませんが、このような方法もあるかと参考まで。 Sub 検索転記() With Worksheets("Sheet2") Dim n0 As Integer Dim r0 As Integer For n0 = 4 To Cells(Rows.Count, 1).End(xlUp).Row If .Cells(n0, 1).Value = "" Then .Cells(n0, 1).Value = Cells(n0, 1).Value End If For r0 = 2 To Cells(3, Columns.Count).End(xlToLeft).Column If Cells(n0, r0).Value = "○" Then .Cells(n0, .Cells(n0, Columns.Count).End(xlToLeft).Column + 1).Value = Cells(3, r0).Value End If Next Next End With End Sub

画像
0
千歳のおぢさん

2022/4/16 16:49

VBA勉強中の方かと思います。 すみませんが「こう書いたけど動かない」程度は答えられますが、ゼロから答えるのは大変です。 マクロ（VBA）は知識があると大変便利で、仕事などに強力なツールとなります。 ぜひ入門用図書を買って勉強してください。 図書館にもありますよ。