エクセルのVBAで下記のようなデータ整理を行いたいと考えています。 A1 x1 y1 x2 y2 ...................
エクセルのVBAで下記のようなデータ整理を行いたいと考えています。 A1 x1 y1 x2 y2 ................... ..............................xn yn A2 n1 m1 n2 m2 ................... ..............................nn mn ↓↓↓↓↓↓↓↓↓↓↓ A1 A2 x1 y1 n1 m1 · · · xn yn nn mn と言った具合に並び替えをVBAで行いたいのですが、１列飛ばしで並べる方法は調べればわかるのですが、並び替える前のデータが改行されてしまっているので、いまいちやり方が浮かびません。 範囲していなどをすればうまく行くのでしょうか。 よろしくお願いいたします。
Excel・54閲覧・100
ベストアンサー
もしかして、こういうこと。 Sub test() Dim x As Variant, y As Variant Dim s As String, t As String Dim i As Long, m As Long, n As Long x = Split(Range("A1"), " ") s = "" m = 0 For i = 0 To UBound(x) s = s & " " & x(i) m = m + 1 If (m Mod 8) = 0 Then s = s & vbLf End If Next i Cells(5, 1) = s y = Split(Range("A2"), " ") t = "" n = 0 For i = 0 To UBound(y) t = t & " " & y(i) n = n + 1 If (n Mod 8) = 0 Then t = t & vbLf End If Next i Cells(6, 1) = t End Sub
質問者からのお礼コメント
ありがとうございました。 無事に解決いたしました！
お礼日時：1/23 13:03
