私は、セル内の配列を複数の行に分割することで、vbaでコードを書きたいのです。
以下に示すように、単一のセルから複数の行にデータを分割しようとしています。 下記のコードを使用しています。 Sub TransposeRange() Dim rng As Range Dim InputRng As Range, OutRng As Range xTitleId = "Splitcell" Set InputRng = Application.Selection.Range("A1") Set InputRng = Application.InputBox("Range(single cell) :", xTitleId, InputRng.Address, Type:=8) Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8) Arr = VBA.Split(InputRng.Range("A1").Value, Chr(9)) OutRng.Resize(UBound(Arr) - LBound(Arr) + 1).Value …