excel VBA函數選擇列的第一行，它將選擇其下的所有單元格並使其處於范圍內

Question

我正在嘗試編寫代碼，我相信它必須是一個函數。 我想選擇列中的第一行，它將創建一個范圍，其中所有行都在其下方（直到空單元格）。 我認為問題是“范圍”的語法。

（最終，我的目標是能夠在兩個不同的列中選擇兩個單元格，自動創建2個范圍並在散點圖中將它們相對繪制。但是我只在第一部分中苦苦掙扎）

我的代碼如下所示：

`

Function rng1(x as variant)

Dim ji as string, jf as string
Dim rng1 as range

ji=x.Address
jf=x.End(xldown).Address

rng1=Range(ji:jf)

'

Answer 1

我刪除了“ rng1”的變量聲明，因為您不能將變量命名為與函數相同的名稱。 您只需要將字符串連接在一起。 您還必須設置函數，因為范圍是對象類型而不是基元。

Function rng1(x as variant) as Range

Dim ji as string, jf as string

ji=x.Address
if x.offset(1,0) <> "" then
    jf=x.End(xldown).Address
else
    jf=ji
end if

set rng1=Range(ji & ":" & jf)
End Function