
No.1ベストアンサー
- 回答日時:
>左から3番目以降のシートのE列のセルに⚪︎が入っている行を抽出
『みかん』が何故抽出されている?
>左から2番目のシートに並べたい
並べるとは?
シート毎に詰めて書き込み、次のシートのデータも空白を開けず書き込む?
『シート:一覧』のE列は更新する事がある?
更新したら纏めのデータを一旦クリアして同じ作業を行なう?
No.2
- 回答日時:
こんにちは
添付図だと結合セルが多くあるようですが、説明がまったくありません。
「結合セル」はいろいろな面で障害の原因となり易く、表としては最悪の形式なのですが・・
また、A、B列の表示も無いので、そちらがどうなっているのかも不明です。
・・ということもあり、以下はかなり大雑把な方法での例ですが、ご参考までに。
(最適とは言えない可能性が高いとは思いますが)
>E列のセルに〇が入っている行を抽出して~~
E列の他のセルは空白であるものと仮定して、以下では「〇」に限らず「テキストの入っているセル」と読み替えて処理しています。
Sub Q13149463()
Dim sh As Worksheet, r As Range
Dim i As Long
Set sh = Worksheets(2)
sh.Rows(6).Resize(Rows.Count - 5).Delete
Set r = sh.Range("A6")
For i = 3 To Worksheets.Count
With Worksheets(i)
.Activate
On Error Resume Next
.Range("E6").Resize(Rows.Count - 5).SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Select
If Err.Number = 0 Then
Selection.Copy r
Set r = sh.Cells(sh.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1, 1)
End If
End With
Next i
On Error GoTo 0
End Sub
※ コピペで処理していますので、セル中に関数式等がある場合は、関数式としてコピーされます。
値のみが必要な場合は、一旦、書式をコピペしてから、値のみペーストするようになさればよいでしょう。
この回答へのお礼
お礼日時:2022/09/19 11:47
ありがとうございます。
>結合が多く表として最悪の形式➡︎私はこれで挫折しました。途中まで書いたコードでは、結合セルではできません。とエラーになり質問させていただきました。
ご提示頂いたコードで無事転記できました。ありがとうございます♪
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) ある数値に対して、値を返す数式についてです 2 2022/09/13 22:06
- Visual Basic(VBA) 複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。 9 2022/06/17 10:33
- Excel(エクセル) Excel>マクロ>特定のセルで同じ情報が登録されている行を1行にまとめたい(文字連結) 6 2023/01/05 16:30
- Visual Basic(VBA) 2つの条件が一致したら一覧へコピーしたい。 左から4番目以降のシート名にコードが入ったシートを全て、 5 2022/09/20 19:41
- Excel(エクセル) vba アクティブシートのA1セルの値を基準に複数のシートコピー&シート名を 6 2023/04/12 18:36
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) Excel_マクロ_複数のシートのVLOOKUPで表示された#N/A以外に色付けをしたいです 1 2023/02/16 22:37
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
特定の文字を含むシートだけマ...
-
【VBA】シート名に特定文字が入...
-
VBAで指定シート以外の選択
-
エクセルのシート名変更で重複...
-
ユーザーフォームに入力したデ...
-
【Excel VBA】Worksheets().Act...
-
別のシートから値を取得するとき
-
シートが保護されている状態で...
-
Excel VBA リンク先をシート...
-
実行時エラー1004「Select メソ...
-
IFステートの中にWithステート...
-
userFormに貼り付けたLabelを変...
-
Worksheet_Changeの内容を標準...
-
エクセルVBA Ifでシート名が合...
-
C#でExcelのシートを選択する方法
-
ブック名、シート名を他のモジ...
-
エクセルで通し番号を入れてチ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定の文字を含むシートだけマ...
-
Excelマクロのエラーを解決した...
-
【ExcelVBA】全シートのセルの...
-
別のシートから値を取得するとき
-
excelのマクロで該当処理できな...
-
ユーザーフォームに入力したデ...
-
ブック名、シート名を他のモジ...
-
【VBA】シート名に特定文字が入...
-
シートが保護されている状態で...
-
VBAで指定シート以外の選択
-
エクセルのシート名変更で重複...
-
XL:BeforeDoubleClickが動かない
-
VBA 存在しないシートを選...
-
IFステートの中にWithステート...
-
実行時エラー'1004': WorkSheet...
-
Excel VBA リンク先をシート...
-
エクセルVBA Ifでシート名が合...
-
ExcelVBA:複数の特定のグラフ...
-
ExcelのVBAのマクロで他のシー...
-
実行時エラー1004「Select メソ...
おすすめ情報
ご質問ありがとうございます。
> 『みかん』が何故抽出されている?
➡︎画像のみかんは実際には○があります。すいません。
> 並べるとは?シート毎に詰めて書き込み、次のシートのデータも空白を開けず書き込む?
➡︎はい、これができたらありがたいです。
>『シート:一覧』のE列は更新する事がある?更新したら纏めのデータを一旦クリアして同じ作業を行なう?
➡︎はい、そのような流れになります。