VBAを使用してカンマ文字列を行に変換するとうまくいきますが、ブレークアウトを列Aの値と一致させる必要があります。例
コロンAには「木：列Bはコンマ文字列でした：Dogwood、Ash、Maple、Elm、Apple。
次のように表示するにはどうすればよいですか。
ありがとうございました
コロンAには「木：列Bはコンマ文字列でした：Dogwood、Ash、Maple、Elm、Apple。
次のように表示するにはどうすればよいですか。
| [font = Calibri]電流プローブ[/フォント] | |
| [font = Calibri]樹木類[/フォント] | [font = Calibri]ハナミズキ、アッシュ、メープル、エルム、アップル[/フォント] |
| [font = Calibri]必要[/フォント] | |
| [font = Calibri]樹木類[/フォント] | [font = Calibri]ハナミズキ[/フォント] |
| [font = Calibri]樹木類[/フォント] | [font = Calibri]アッシュ[/フォント] |
| [font = Calibri]樹木類[/フォント] | [font = Calibri]メイプル[/フォント] |
| [font = Calibri]樹木類[/フォント] | [font = Calibri]エルム[/フォント] |
| [font = Calibri]樹木類[/フォント] | [font = Calibri] Apple [/ font] |
パブリックサブtextToColumns（）
Set ARange = Range（ "A：A"）
Set BRange = Range（ "B：B"）
Set CRange = Range（ "C：C"）
DRange = Range（ "D：D"）を設定します
Dim arr（）As String
lr = Cells.Find（ "*"、SearchOrder：= xlByRows、SearchDirection：= xlPrevious）.Row
設定 = Worksheets.Add
out.Name = "out"
アウト行 = 2
i=2からlrの場合
arr = Split（ARange（i）、 "、"）
j = 0の場合UBound（arr）へ
out.Cells（outRow、1）= Trim（arr（j））
out.Cells（outRow、2）= BRange（i）
out.Cells（outRow、3）= CRange（i）
out.Cells（outRow、4）= DRange（i）
アウト行 = アウト行 + 1
次のj
私は次の
End Subの
ヘッダーを作成したり、出力シートを適切に処理したりしませんでしたが、基本的に何が起こっているかを確認できます。
Set ARange = Range（ "A：A"）
Set BRange = Range（ "B：B"）
Set CRange = Range（ "C：C"）
DRange = Range（ "D：D"）を設定します
Dim arr（）As String
lr = Cells.Find（ "*"、SearchOrder：= xlByRows、SearchDirection：= xlPrevious）.Row
設定 = Worksheets.Add
out.Name = "out"
アウト行 = 2
i=2からlrの場合
arr = Split（ARange（i）、 "、"）
j = 0の場合UBound（arr）へ
out.Cells（outRow、1）= Trim（arr（j））
out.Cells（outRow、2）= BRange（i）
out.Cells（outRow、3）= CRange（i）
out.Cells（outRow、4）= DRange（i）
アウト行 = アウト行 + 1
次のj
私は次の
End Subの
ヘッダーを作成したり、出力シートを適切に処理したりしませんでしたが、基本的に何が起こっているかを確認できます。
- ページ：
- 1
この投稿に対する返信はまだありません。