ここから本文です

急ぎ!! Excelのマクロで教えて下さい! 以下の処理をマクロで書きたいのですが...

アバター

ID非公開さん

2020/6/2115:46:10

急ぎ!!
Excelのマクロで教えて下さい!

以下の処理をマクロで書きたいのですが、さっぱり分からず…お知恵を貸して下さい!

[やりたいこと]
①A4セルからA列の最終行までのデータを削除
②A3セルの関数をB4セル以降

のデータ件数分だけA4セル以降に引き延ばす

簡単な処理ですが勉強不足で…よろしくお願いします!!

閲覧数:
71
回答数:
3
お礼:
100枚

違反報告

回答

1〜3件/3件中

並び替え:回答日時の
新しい順
|古い順

プロフィール画像

カテゴリマスター

taihenda****さん

2020/6/2119:12:00

A3セルに数式が入っていればA3セルを下にコピーすればA4からB列の最終行までの位置の既存の値は削除されますね。実際に操作するとき数式を入れ直すのにいちいちデータの削除はしないと思いますが?

ただ、B列の最終行よりもっと下にA列に値が入っているなら別ですが、ちょっと考えられないです。

Sub test()
Range("A3", Cells(Rows.Count, 2).End(xlUp).Offset(, -1)).FillDown
End Sub

だけでいいと思いますよ。お試しください。

  • アバター

    質問者

    ID非公開さん

    2020/6/2122:41:37

    B列がピボットなので、行数は元データによっては可変するので、削除が必要だと思っています。

  • その他の返信(1件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

プロフィール画像

カテゴリマスター

2020/6/2116:22:52

Sub test()
'①削除?クリアじゃなくて?下記はクリアの方法です。削除ならDelete
Range("A4:A" & Rows.Count).ClearContents
'②
Range("A3").Resize(Cells(Rows.Count, "B").End(xlUp).Row - 2).Formula = Range("A3").Formula
End Sub

だるまさん

2020/6/2116:20:46

Sub test()
    Range("A4", Range("A" & Rows.Count).End(xlUp)).ClearContents
    Range("A3").Copy Range("B4", Range("B" & Rows.Count).End(xlUp)).Offset(, -1)
End Sub

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる