vba choose应该使用什么格式？

fengyao818

perfect131 发表于 2022-6-3 14:48
1111111111111

搞定谢谢

fengyao818

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

h前后加&是什么意思？

蓝桥玄霜

这倒是一个把不相邻的单元格区域赋值给一个数组的简便写法。与Python 中的切片法有异曲同工之妙。

准提部林

fengyao818 发表于 2022-6-3 17:22
h前后加&是什么意思？

Evaluate 只識別"文本",
& 連接符...成文字串

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

  

fengyao818

准提部林 发表于 2022-6-3 17:56
Evaluate 只識別"文本",
& 連接符...成文字串

谢谢！！！！！！！！！！！！！1

fengyao818

准提部林 发表于 2022-6-3 17:56
Evaluate 只識別"文本",
& 連接符...成文字串

a和d也是计算值，该如何打标点符号？

fengyao818

准提部林 发表于 2022-6-3 14:36
Sub TTT()
Dim h
h = Cells(Rows.Count, 1).End(xlUp).Row

帮忙看看最后一句，数组赋值还是失败了，常量和变量之间应该如何连接？

aman1516

蓝桥玄霜 发表于 2022-6-3 17:27
这倒是一个把不相邻的单元格区域赋值给一个数组的简便写法。与Python 中的切片法有异曲同工之妙。

不错，值得学习

准提部林

Sub YYY()
Dim 位址1$, 位址2$
Set a = Application.InputBox("Selection Any Column", Title:="TEST", Type:=8)
位址1 = Split(a.Address, "$")(1)

Set b = Application.InputBox("Selection Any Column", Title:="TEST", Type:=8)
位址2 = Split(b.Address, "$")(1)

h = Cells(Rows.Count, a.Column).End(xlUp).Row
arr = Application.Evaluate("choose({1,2}," & 位址1 & "1:" & 位址1 & h & "," & 位址2 & "1:" & 位址2 & h & ")")
End Sub

fengyao818

准提部林 发表于 2022-6-3 22:29
Sub YYY()
Dim 位址1$, 位址2$
Set a = Application.InputBox("Selection Any Column", Title:="TEST", T ...

看明白连接符使用规则了。但数组还是报错，split后字母后多个：，将我的最后一句连接符修改后也报错，是不是choose格式有问题？choose没有变成大写。