(シート1)
ACFGにif関数(Bに入力がない場合は空白””です。)
AAにsum関数(0は表示しません。)
日によって入力する行数が異なり、途中に空白行もあります。
この(シート1)の最終行を取得して、(シート2)に値コピーしたくて以下↓のようにやってみたのですが思う通りにはいきません。
関数での空白は無視して最終行を取得するには、どのようにしたらいいのでしょうか。
よろしくお願いします。
Sheets("シート1").Select
Range(Range("A1:AC1"), Cells(Rows.Count, 1).End(xlUp)).Copy
Worksheets("シート2").Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
No.2ベストアンサー
- 回答日時:
こんなので、いかがでしょう。
Sub sample()
Sheets("シート1").Select
With ActiveSheet.Range("A:A")
Range(Range("A1:AC1"), .FindPrevious(.Find("*", .Rows(Rows.Count), _
LookIn:=xlValues))).Copy
End With
Worksheets("シート2").Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
No.1
- 回答日時:
「Cells(Rows.Count, 1).End(xlUp)」だとA列の最終行を見つけてしまいます。
他の列の方が大きい場合使えません。以下のようにすれば使っている最後の行番号を得られます。
--------------------------------------------------------------------
Sub 最終()
Dim 最終行 As Long
With Sheets("シート1").UsedRange
最終行 = .Rows(.Rows.Count).Row
End With
End Sub
--------------------------------------------------------------------
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
あるあるbotに投稿したけど採用されなかったあるある募集
あるあるbotに投稿したけど採用されなかったあるあるをこちらに投稿してください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
エクセルで空白セルを含む列の最終行の値を取得する式を教えてください
Excel(エクセル)
-
数式による空白を無視して最終行までコピーするマクロ
Excel(エクセル)
-
-
4
エクセル:データが入った最終行の行番号の取得
Excel(エクセル)
-
5
条件に一致する最終行の値をエクセル関数で抽出する方法
Excel(エクセル)
-
6
数式による空白を無視して印刷するマクロ
Excel(エクセル)
-
7
数式の結果が空白の時の空白扱い
Excel(エクセル)
-
8
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
9
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
10
空白セル内の数式を残したままで空白セル扱いとしたいのですが
Excel(エクセル)
-
11
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
12
エクセルである行以下全部を削除する方法
Excel(エクセル)
-
13
エクセルマクロ 【空白セルを無視する方法を教えてください】
Excel(エクセル)
-
14
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
-
15
VBA別シートの最終行の下行へ貼り付けされるようにしたいです。
その他(Microsoft Office)
-
16
エクセルマクロにて最終行まで数式をコピーする構文
Excel(エクセル)
-
17
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
18
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
-
19
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
-
20
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの複数シートの保護を...
-
Excelで金銭出納帳。繰越残高を...
-
excelでシート毎の最終更新日を...
-
シートを追加・名前を次月に変...
-
Excelのシートを、まとめて表示...
-
エクセル 計算式も入っていない...
-
特定のシートの削除を禁止した...
-
エクセルで前のシートを連続参...
-
エクセルでファイルを開いたと...
-
Accessのスプレッドシートエク...
-
Excel、同じフォルダ内のExcel...
-
シートの保護のあとセルの列、...
-
エクセルのシート名をリスト化...
-
別シート参照のセルをシート毎...
-
前の(左隣の)シートを連続参...
-
エクセルVBAでパスの¥マークに...
-
エクセルで毎回1枚目のシートを...
-
VBAでシートコピー後、シート名...
-
EXCELで1ヶ月分の連続した日付...
-
Excelで同じシートのコピーを一...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの複数シートの保護を...
-
Excelで金銭出納帳。繰越残高を...
-
エクセルVBAでパスの¥マークに...
-
前の(左隣の)シートを連続参...
-
EXCEL:同じセルへどんどん足し...
-
別シート参照のセルをシート毎...
-
エクセルでファイルを開いたと...
-
Excelのシートを、まとめて表示...
-
エクセルのシート名をリスト化...
-
VBAでシートコピー後、シート名...
-
特定のシートの削除を禁止した...
-
エクセルで前シートを参照して...
-
シートの保護のあとセルの列、...
-
エクセル 計算式も入っていない...
-
エクセルで複数設定したハイパーリンク先...
-
EXCELで1ヶ月分の連続した日付...
-
Excel、同じフォルダ内のExcel...
-
Accessのスプレッドシートエク...
-
EXCELで同一フォーマットのシー...
-
excelでシート毎の最終更新日を...
おすすめ情報