Sheet1のようなデータを空白セルを詰める形でSheet2に貼り付けたいと考えています(図を参照)。
1行だけであれば下記のコードでできるところまではたどり着きました。
Sub 空白を詰める()
Dim i As Long
Dim j As Long
Dim k As Long
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Sheets("Sheet1")
Set sh2 = Sheets("Sheet2")
i = sh1.Cells(1, Columns.Count).End(xlToLeft).Column
j = 1
For k = 1 To i
If sh1.Cells(1, k) <> "" Then
sh2.Cells(1, j) = sh1.Cells(1, k)
j = j + 1
End If
Next k
End Sub
複数行のデータに対して同様の処理を行うにはどうすればよいでしょうか?
ご教示願います。
No.2ベストアンサー
- 回答日時:
こんにちは
A列の最終行がデータの最終行と一致しない場合は
SpecialCells(xlLastCell).Rowを使うと良いかもしれません
また、最終列が行によって違う場合は 変数で対象行を指定するか同様に
Range("A1").SpecialCells(xlLastCell).Columnなどを使用しますが
この場合、最大(最後の)行まで処理されるので無駄な処理がされる可能性があります
ご質問のロジックの延長で1例はこんな感じ
ステップ実行などで動作を確認してみてください
Dim i As Long
Dim j As Long
Dim k As Long
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Sheets("Sheet1")
Set sh2 = Sheets("Sheet2")
Dim n As Long
i = 1
For n = 1 To sh1.Range("A1").SpecialCells(xlLastCell).Row
j = 1
For k = 1 To sh1.Cells(n, Columns.Count).End(xlToLeft).Column
If sh1.Cells(n, k) <> "" Then
sh2.Cells(i, j) = sh1.Cells(n, k)
j = j + 1
End If
Next k
i = i + 1
Next n
ご回答いただきありがとうございます。
うまくできました!
Sheet1のA列には全行データがある状態ですので、列方向のみケアすればよいと思いますが、データ行が多い場合は確かに余計な処理を行うことになりますね。実データで挙動を確認してみます。
ありがとうございました。
No.5
- 回答日時:
こんばんは
詰めるというよりも、空白セルをまとめて除去すると考えると簡単だと思います。
以下のような要領でも可能と思います。
Sub Sample()
With Worksheets("Sheet2")
Worksheets("Sheet1").Cells.Copy .Cells
.UsedRange.SpecialCells(xlCellTypeBlanks).Delete (xlShiftToLeft)
End With
End Sub
こんばんは。
ご回答いただきありがとうございます。
なるほど。こういうアプローチもありですね。
構文もシンプルですし面白いですね。
参考になります。
No.4
- 回答日時:
>>全データ中の列maxを取得する方法はありますでしょうか?
ゴメン、見落とし有りました
i = sh1.Cells(1, Columns.Count).End(xlToLeft).Column
↓1を行に変更
i = sh1.Cells(行, Columns.Count).End(xlToLeft).Column
No.1
- 回答日時:
今のforループを囲むforループを追加する。
囲むforループを行方向でループさせる。
行max= sh1.Range("A65536").End(xlUp).Row ←追加
for 行=1 to 行max ←追加
i = sh1.Cells(1, Columns.Count).End(xlToLeft).Column
j = 1
For k = 1 To i
If sh1.Cells(行, k) <> "" Then ←1を行に変更
sh2.Cells(行, j) = sh1.Cells(行, k) ←1を行に変更
j = j + 1
End If
Next k
Next 行 ←追加
ご回答いただきありがとうございます。
教えていただいたコードを追加してみました。
2行目 かきくけ
3行目 さしすせ
となってしまいますね。
i(列のmax)を1行目で取ってしまっているからだと思いますが、全データ中の列maxを取得する方法はありますでしょうか?
重ねてのお尋ねになり申し訳ありません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
家の中でのこだわりスペースはどこですか?
自分の家で快適に過ごすために工夫しているスペースはありますか? 例)ベランダでお茶を飲むためのカフェテーブル ゲーミングに特化したこだわりのPCスペース
-
家・車以外で、人生で一番奮発した買い物
どんなものにお金をかけるかは人それぞれの価値観ですが、 誰もが一度は清水の舞台から飛び降りる覚悟で、ちょっと贅沢な買い物をしたことがあるはず。
-
CDの保有枚数を教えてください
ひとむかし前はCDを買ったり借りたりが主流でしたが、サブスクで簡単に音楽が聴ける今、CDを手に取ることも減ってきたかと思います。皆さんは2024年現在、何枚くらいCDをお持ちですか?
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら「ろうそくの数はあなたが好きな人の数です」と言われ浮気者扱いされたことをいまだに根に持っています。
-
「お昼の放送」の思い出
小学校から中学校、ところによっては高校まで お昼休みに校内放送で、放送委員が音楽とかおしゃべりとか流してましたよね。 最近は自分でもラジオができるようになって、そのクオリティもすごいことになっていると聞きます。
-
【ExcelVBA】ダブルクォーテーションで囲まれたCSVを作成する方法
Excel(エクセル)
-
Excel 対象のセルに入力が無いとセルに入力できないようにしたい
Excel(エクセル)
-
Excelの時刻の不思議
Excel(エクセル)
-
-
4
【マクロ】functionプロシージャの、変数について
Excel(エクセル)
-
5
【マクロ】ファイル名の変更について
Excel(エクセル)
-
6
CSVファイルについて質問です。
Excel(エクセル)
-
7
【関数】スペースがいくつ入った後の文字列を取り出したい
Excel(エクセル)
-
8
Excelで空白以外の値がある列のみ抽出する方法
その他(Microsoft Office)
-
9
【マクロ】アクティブセルの行のデータをクリアするマクロについて
Excel(エクセル)
-
10
エクセルのツールバーから数値が消えました。
Excel(エクセル)
-
11
エクセルを使っていて2024/5/15と入力したのに令和元年とかででるのでしょうか?何か設定分かる方
Excel(エクセル)
-
12
エクセルの計算
Excel(エクセル)
-
13
関数の説明
Excel(エクセル)
-
14
VBAについての質問です
Excel(エクセル)
-
15
エクセルで 自動的に◯や数字を表示させることできます? 例えばなんですが 日付 山田 1 ◯ みたい
Excel(エクセル)
-
16
マクロのコードを教えてください。
その他(Microsoft Office)
-
17
Excel 1の位の数字で処理を分岐させたい
Excel(エクセル)
-
18
VBAコードのインデント表示
Visual Basic(VBA)
-
19
2列に入っているデータを1列で表示する関数について
Excel(エクセル)
-
20
Excelの表示についての質問
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA:同じ文字列データの比...
-
VBA別シートの最終行の下行へ貼...
-
ExcelVBAで改ページを追加したい
-
EXCELマクロで全シート対...
-
エクセル:VBAで月変わりで、自...
-
Excel VBA インデックスの境...
-
【WORD差し込み印刷】複数レコ...
-
Excel VBA 時刻でのD...
-
エクセルVBAで SendKeys "{TAB}"
-
Excel で行を指定回数だけコピ...
-
スマホ機種変更で旧機種のGoogl...
-
機種変更時にデータは見られる?
-
代替機にキズ
-
ソフトバンクの302SH、白ロム可...
-
FOMAカード(UIM)異常
-
メールボックスがない時はどう...
-
外付けHDのアダプタ間違え、起...
-
携帯電話の充電
-
スライドショー作成について
-
ケータイの電源がいきなり落ち...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel で行を指定回数だけコピ...
-
excelの差込印刷で可視セルだけ...
-
Excel VBA インデックスの境...
-
エクセル:VBAで月変わりで、自...
-
VBA別シートの最終行の下行へ貼...
-
エクセルVBA 別シートの複数の...
-
VBA:同じ文字列データの比...
-
エクセルVBAでの日付順のデ...
-
エクセルVBAで 2種のリストを...
-
歯抜けの時間を埋めて行の挿入
-
EXCELマクロで全シート対...
-
エクセル2007で、マクロで、結...
-
エクセルVBAで SendKeys "{TAB}"
-
VBAで条件が一致する行のデータ...
-
Excel VBA :2回目以降実行で貼...
-
Excel VBA 複数条件にマッチし...
-
Excel VBAでシート内全体に非表...
-
VBAで 任意図形のみ残してその...
-
Excelマクロで空白セルを詰めて...
-
VBAで複数シート選択
おすすめ情報