0

申し訳ありませんが、コードがありません。調査を行ったところ、必要なものが見つかりませんでした。

ボタンをクリックして行を追加したいテーブルがあります。

一番下に「End」というセルを作成しました。

VBA で N15:S16 (2 行) からセルをコピーし、貼り付けたデータと共に "End" セルの上に 2 行を挿入します。

クリック機能でそれをどのように行うのでしょうか?

4

2 に答える 2

1

目的のように見えるものにコード（または式）が必要ないことに気付いているかどうかに興味があります（しかし、「答えとして」画像を投稿したかったのです）。

{Excel 2007 を使用している場合}

N14:S15テーブルであることを確認します。( N14:S15、[挿入] > [表] > [表] を選択します。[My table has headers必要でない場合] と をチェックしないでくださいOK)。

シートBeforeにテーブル ラベルと合計行を追加し、そこに "End" {"End" は必要ありません} を追加し、数量と値を合計する数式を追加しました。

出発Before点として：

SO1697098 の例

Afterそれを選択N14:S15して に貼り付けた結果がN16です。

于 2013-06-06T21:47:19.003 に答える
0

@John Bustosが解決を助けてくれました。いくつかのマクロを記録しました。これが現在のコードです。

Sub Insert_Row_Click()
    Range("T15:AK16").Select
    Selection.Copy
    Application.Goto Reference:="EndCell2"
    Selection.Insert Shift:=xlDown
End Sub

みなさん、良い一日を！

于 2013-06-07T13:24:16.917 に答える