vba choose应该使用什么格式？

fengyao818

arr = [Choose({1,2},a1:a299,d1:d299)]，赋值成功，但299是不确定的，如何写活？


h = Cells(Rows.Count, 1).End(xlUp).Row
arr = [choose({1,2},a1:a & h,d1:d & h)]
h等于299，但arr报错Error 2015

蓝桥玄霜

1. [j:k].ClearContents
   
2. r = Cells(Rows.Count, 1).End(xlUp).Row
   
3. Range("J1:K" & r).FormulaArray = "=CHOOSE({1,2},RC[-9]:R[" & r - 1 & "]C[-9],RC[-6]:R[" & r - 1 & "]C[-6])"
   
4. arr = Range("J1:K" & r)
   

复制代码

这是一个数组公式，似乎没有简单的方法。

fengyao818

蓝桥玄霜 发表于 2022-6-3 09:53
这是一个数组公式，似乎没有简单的方法。

我看晕了

准提部林

arr = Evaluate("choose({1,2},a1:a" & H & ",d1:d" & H & ")")

fengyao818

准提部林 发表于 2022-6-3 13:13
arr = Evaluate("choose({1,2},a1:a" & H & ",d1:d" & H & ")")

报错啊

microyip

这是单元格用的公式函数，VBA代码使用，合适吗？用if代替choose不就完了吗？搞这么复杂

准提部林

fengyao818 发表于 2022-6-3 13:28
报错啊

Sub TTT()
Dim h
h = Cells(Rows.Count, 1).End(xlUp).Row
arr = Evaluate("choose({1,2},a1:a" & h & ",d1:d" & h & ")")
MsgBox arr(1, 1)
End Sub

perfect131

fengyao818 发表于 2022-6-3 13:28
报错啊

1111111111111

perfect131

不错，不连续学习了

fengyao818

准提部林 发表于 2022-6-3 13:13
arr = Evaluate("choose({1,2},a1:a" & H & ",d1:d" & H & ")")

是我把h表达式漏了，搞定，谢谢