前提・実現したいこと
ExcelのVBAでシート1の縦に並んだデータをコピーペーストしてシート2に横に並べていくプログラムを作りたいです。1つのセルに1つの値が入っています。
例)シート1 → シート2
1 1 あ 3 4 JPN〇〇〇
あ 4 6 いいい JPN〇〇〇
3 …
4
JPN○○○
4
6
いいい
JPN〇〇〇
…
上記のようなシート1の値を1行ずつ取得し、シート2に横に並べ、特定のアルファベットJPNがきたら改行しまた処理をする繰り返し処理のプログラム作成を考えています。
試したこと
xlDownで縦のデータを全てコピーしてPasteSpecial Transpose:=Trueで横にデータをペーストすることはできたのですが、アルファベットがきたら改行し、処理を繰り返したり、1行ずつコピーペーストするプログラムの書き方が分かりません・・・。
if文などでlike*"A"*のような文を応用すればできそうな気がしているのですが、理解力が足りず詰まってしまっています・・・。
似たようなプログラムを組んだことのある方がいればアドバイスを頂きたいです。
回答3件
あなたの回答
tips
プレビュー