Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3926 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【59406】複数列のデータを１列（ａ列）に統合したい まさ 08/12/10(水) 1:11 質問[未読]
【59412】Re:複数列のデータを１列（ａ列）に統合し... かみちゃん 08/12/10(水) 12:43 発言[未読]
【59431】Re:複数列のデータを１列（ａ列）に統合し... まさ 08/12/10(水) 22:17 お礼[未読]
【59437】Re:複数列のデータを１列（ａ列）に統合し... kanabun 08/12/11(木) 11:03 発言[未読]
【59406】複数列のデータを１列（ａ列）に統合した...
質問  まさ  - 08/12/10(水) 1:11 -
引用なし
パスワード
   はじめまして。

a列〜最終列までデータが入っています。

最終列と最終行を判断して、a列の最終行の後にすべての列データを統合したいです。

Cells(1, Columns.Count).End(xlToLeft） 最終列
cells(65535,aa)).End(xlUp).Row　　　　各列の最終行（上検索）
for nextを利用してやってますが、
効率がよいやり方あれば教えてください。

よろしくお願いします。
【59412】Re:複数列のデータを１列（ａ列）に統合...
発言  かみちゃん E-MAIL  - 08/12/10(水) 12:43 -
引用なし
パスワード
   こんにちは。

>a列〜最終列までデータが入っています。
>
>最終列と最終行を判断して、a列の最終行の後にすべての列データを統合したいです。

他の掲示板の過去ログで申し訳ありませんが、以下が参考になりませんか？
なんとなくなさりたいことが似ていると思います。
ｈｔｔｐ://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200812/08120040.txt
【59431】Re:複数列のデータを１列（ａ列）に統合...
お礼  まさ  - 08/12/10(水) 22:17 -
引用なし
パスワード
   アドバイスありがとうございます。
ＵＲＬは開けません。
もうないのでしょうか？


▼かみちゃん さん：
>こんにちは。
>
>>a列〜最終列までデータが入っています。
>>
>>最終列と最終行を判断して、a列の最終行の後にすべての列データを統合したいです。
>
>他の掲示板の過去ログで申し訳ありませんが、以下が参考になりませんか？
>なんとなくなさりたいことが似ていると思います。
>ｈｔｔｐ://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200812/08120040.txt
【59437】Re:複数列のデータを１列（ａ列）に統合...
発言  kanabun  - 08/12/11(木) 11:03 -
引用なし
パスワード
   ▼まさ さん：

>ＵＲＬは開けません。
>もうないのでしょうか？

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

参考まで。

　　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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3926 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free