Rentang Nama Dinamis dengan Data Bergerak di Bawah

Saya mencoba membuat rentang nama dinamis yang dapat saya gunakan untuk daftar validasi data. Saya menggunakan ini sepanjang waktu tetapi dalam kasus ini saya memiliki informasi yang ditempatkan di bawah rentang yang tidak dapat dihitung dalam rentang tersebut. Selain itu, saya memiliki makro yang menyisipkan baris dalam rentang ini yang perlu dihitung.

Saya biasanya akan menggunakan sesuatu seperti ini jika tidak ada yang lain di kolom: =OFFSET($A$1,0,0,COUNTA($A:$A),1)

Saya perlu memulai yang ini sedikit dari bawah, jadi saya menggunakan: =OFFSET($A$24,0,0,COUNTA($A$24:$A24),1)

Perhatikan saya telah menghapus "$" sebelum "24" terakhir dalam rumus dengan harapan akan meluas, tetapi hal itu tampaknya tidak konsisten.

Pada dasarnya, saya memerlukan rentang COUNTA untuk hanya menyertakan rentang sel yang akan selalu tumbuh dan menyusut.

Saya tidak buruk dalam VBA dan saya terbuka untuk solusi yang mungkin mencakup perulangan melalui rentang sel dan berhenti setelah mencapai sel yang nilainya sama dengan string teks tertentu (dalam kasus ini adalah .Value = "Request 1" ). Namun saya sedikit khawatir dalam memasukkan formulir atau Kontrol ActiveX, karena hal ini pernah menyebabkan saya mengalami masalah di masa lalu dengan fungsi melihat dan mencetak.


person Devin Roberts    schedule 03.10.2017    source sumber


Jawaban (1)


Saya menggunakan kode berikut untuk membuat rentang di tempat lain di buku kerja yang kemudian dapat dengan mudah saya gunakan untuk membuat rentang bernama dinamis:

Sub UpdateEntities()

Dim i As Long, x As Long

i = 24
x = 1

Sheets("Values").Range("AH:AH").ClearContents

Do While Cells(i, 1).Value <> "REQUEST 1"

Cells(i, 1).Select

If ActiveCell.Value <> "" Then
Sheets("Values").Cells(x, 34).Value = ActiveCell.Value
i = i + 1
x = x + 1
Else
i = i + 1
End If

Loop

End Sub
person Devin Roberts    schedule 03.10.2017