質問: エクセルVBAを教えて頂きたいです。 「シート2」タブのA2セルの日付が「シート1」タブのA2セルの日付と一致する、 かつ、 「シート2」タブのB2セルの数値が「シート1」タブのB2セルの数値と一致した時、「シート1」上の条件に合致する行のC列の文字を順に結合して「シート2」タブのC2セルに表示、 そして、 「シート1」上のD列の文字を順に結合して「シート2」タブのD2セルに表示する。 上記を実現するコードを書きたいのですが、どのように書けば良いのか分かりません。どなたかコードを教えて頂けないでしょうか?宜しくお願い致します。
回答: lgk********さんのだと、 A11以降が2021/7/11でB11以降が空白だとうまくないのでは? Sub test() Sheets("シート2").Select Sheets("シート1").Range("A1").CurrentRegion.AdvancedFilter _ Action:=xlFilterCopy, CriteriaRange:=Range("A1:B2"), _ CopyToRange:=Range("E1") Range("C2") = WorksheetFunction.Concat(Range("G2", Cells(Rows.Count, "G").End(xlUp))) Range("D2") = WorksheetFunction.Concat(Range("H2", Cells(Rows.Count, "H").End(xlUp))) Columns("E:H").Clear End Sub 区切り文字があったほうがよさそうだが、