Excel VBA質問箱 IV

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

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


22679 / 76738 ←次へ | 前へ→

【59437】Re:複数列のデータを1列(a列)に統合したい
発言  kanabun  - 08/12/11(木) 11:03 -

引用なし
パスワード
   ▼まさ さん:

>URLは開けません。
>もうないのでしょうか?

全角を半角に代えれば、開けると思いますが?

参考まで。

  Dim a As Range
  Dim i As Long
  
  With ActiveSheet
    Set a = .Cells(.Rows.Count, 1)
    For i = 2 To .UsedRange.Columns.Count '2列目から最終列までLoop
      .Range(.Cells(1, i), .Cells(.Rows.Count, i).End(xlUp)).Cut _
       a.End(xlUp).Offset(1)
    Next
  End With

0 hits

【59406】複数列のデータを1列(a列)に統合したい まさ 08/12/10(水) 1:11 質問
【59412】Re:複数列のデータを1列(a列)に統合し... かみちゃん 08/12/10(水) 12:43 発言
【59431】Re:複数列のデータを1列(a列)に統合し... まさ 08/12/10(水) 22:17 お礼
【59437】Re:複数列のデータを1列(a列)に統合し... kanabun 08/12/11(木) 11:03 発言

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