0

次のことを行うマクロを作成しようとしています。

  1. アクティブなセルを認識し、それらのセルの表の行全体を選択します。それらの行をすべてカットします。
  2. それらを別のワークシートの別のテーブルに貼り付けます (テーブルの最後に、既存のものに追加します)。
  3. 元のワークシートに戻り、空の行を削除します。

VBAについては十分理解しています。アクティブなセルに基づいて行全体を選択できました。しかし、複数のセル (B4、B5、および B6 など) を選択すると、3 つすべてではなく 1 つの行のみが選択されます。さらに、行全体ではなく、テーブル行のみを選択するのに苦労しています。

これは、私が始めた最初のコード行です。しかし、そうではありません A: 複数の行を選択するか、B: テーブルの行セルのみを選択します。

ActiveCell.EntireRow.Select

ありとあらゆる助けをいただければ幸いです。上記の手順の一部を支援するだけでも役立ちます。

ありがとうございました！

4

1 に答える 1

0 
Sub Tester()

Dim rng As Range

    Set rng = Application.Intersect(Selection.EntireRow, _
                    Selection.Parent.ListObjects(1).Range)

    If Not rng Is Nothing Then
        'rng.Font.Color = RGB(255, 0, 0) 'do something with rng
    End If

End Sub
于 2012-08-10T21:56:35.863 に答える