-2

これはそれほど難しい作業ではないと思いますが、問題は、実際にはプログラミングについて何も知らず、現在の仕事でこれを行う必要があることです。これは私の問題です:

問題は、マクロを開発し、それをボタンに割り当てて、ページ 1 (シート 1) から範囲 E3:K14 をコピーし、ページ 2 (シート 2) の A1 に貼り付ける必要があることです。この最初のタスクはかなり簡単ですが、ボタンに割り当てられたマクロをもう一度押すと、ページ 1 から同じ範囲をコピーしてページ 2 に貼り付ける必要がありますが、最初に A1 に何かが既に貼り付けられているかどうかを確認する必要がある場合に問題が発生します。 、ある場合はセルI1にコピーする必要があり、ボタンをもう一度クリックするとQ1などにコピーされます。

範囲を貼り付ける場合は、[値を貼り付け] オプションを使用して貼り付ける必要があります。

誰かが私に正確なコードを（可能であればいくつかのコメントを付けて）貼り付けることができれば、それを貼り付けるだけで本当に役に立ちます。

どんな助けでも本当に感謝します!

4

2 に答える 2

0

このコードを使用して、データを含む最後の列を取得できます。これが問題を解決するための鍵です。

Sub SelectLast()
  Dim LastColumn As Long
  With ActiveSheet
    LastColumn = .Range("A1").SpecialCells(xlCellTypeLastCell).Column
  End With
  MsgBox LastColumn

  Cells(18, LastColumn + 2).Select
End Sub
于 2013-05-30T14:23:37.313 に答える