Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


46490 / 76732 ←次へ | 前へ→

【35212】Re:横から縦に並び替える方法
回答  Kein  - 06/2/23(木) 20:44 -

引用なし
パスワード
   Sub MyArray()
  Dim MyAry As Variant, NewAry() As Variant
  Dim i As Long, j As Long, x As Long
 
  MyAry = Range("A1").CurrentRegion.Value: x = 0
  For i = LBound(MyAry, 1) To UBound(MyAry, 1)
   For j = LBound(MyAry, 2) To UBound(MyAry, 2)
     ReDim Preserve NewAry(x)
     NewAry(x) = MyAry(i, j): x = x + 1
   Next j
  Next i
  With Range("A1")
   .CurrentRegion.ClearContents
   .Resize(UBound(NewAry) + 1).Value = _
   WorksheetFunction.Transpose(NewAry)
  End With
  Erase MyAry, NewAry
End Sub

で、どうでしょーか ?

0 hits

【35201】横から縦に並び替える方法 aki 06/2/23(木) 17:15 質問
【35206】Re:横から縦に並び替える方法 ichinose 06/2/23(木) 18:47 発言
【35240】Re:横から縦に並び替える方法 aki 06/2/24(金) 9:06 お礼
【35212】Re:横から縦に並び替える方法 Kein 06/2/23(木) 20:44 回答
【35244】Re:横から縦に並び替える方法 aki 06/2/24(金) 10:30 質問
【35251】Re:横から縦に並び替える方法 Kein 06/2/24(金) 13:35 回答
【35253】Re:横から縦に並び替える方法 aki 06/2/24(金) 13:53 お礼

46490 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free