Excel VBA質問箱 IV

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

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


46455 / 76735 ←次へ | 前へ→

【35251】Re:横から縦に並び替える方法
回答  Kein  - 06/2/24(金) 13:35 -

引用なし
パスワード
   そのように、処理対象のセル範囲を特定するなら・・

Sub MyArray2()
  Dim NewAry() As Variant
  Dim C As Range
  Dim x As Long
 
  For Each C In Range("B4:I404")
   ReDim Preserve NewAry(x)
   NewAry(x) = C.Value: x = x + 1
  Next
  Range("L4").Resize(UBound(NewAry) + 1).Value = _
  WorksheetFunction.Transpose(NewAry)
  Erase 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 お礼

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