4

2 つの隣接する列からすべての行を選択します。ヘッダーの下の行 (これは修正されています) から始まり、最初の行の前の行で空白のセルで終わります。

次の例を考えると... 

    A       B
1   Item    Amount
2   Item1   1
3   Item2   4
4           2
5

A2:B3 の範囲を選択したいと思います。最初の行は常に行 2 であり、最後の行は行 3 です。これは、最初の行の前に空白セルがあるためです。

私の目標は、現在の最後の行の下の行を完全に埋めた後、この選択を使用して自動的に並べ替えて行に境界線を追加することです。この例では、A4 を入力して行部分を選択し、前述のアクションを適用する必要があります。

誰かが私を助けてくれることを願っています..事前に感謝します!

編集

私はクリス・ニールセンの解決策に基づいて解決策を考え出しました：

Dim rng As Range
With Worksheets("YourSheet")
    Set rng1 = .Range(.Cells(2, 1), .Cells(2, 2).End(xlDown))
    Set rng2 = .Range(.Cells(2, 2), .Cells(2, 1).End(xlDown))
    Set r = Application.Intersect(rng1, rng2)

End With
4

2 に答える 2

4

これを試して

Dim rng as Range
With Worksheets("YourSheet")
    Set rng = .Range(.Cells(1,2), .Cells(1,2).End(xlDown)).Resize(,2)
End With

変数rngは次のように設定されますA2:B3

于 2012-04-27T15:28:37.070 に答える
0

以下のコードを試してください：

Sub sample()
    Dim lastRow As Long
    lastRow = Range("A65000").End(xlUp).Row

    Dim rng As Range, newRng As Range

    Set rng = Range("A2:A" & lastRow)
    Set newRng = rng.Resize(, 2)

    If Not newRng Is Nothing Then
        newRng.Sort key1:=Range("A2")
    End If

    newRng.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic

End Sub
于 2013-03-24T07:08:23.580 に答える