gpt4 book ai didi

excel - 设置数组值时输入不匹配 13 错误 13

转载 作者:行者123 更新时间:2023-12-04 21:51:25 25 4
gpt4 key购买 nike

我不确定发生了什么,我认为这将是一个简单的代码。

基本上,我只是根据单元格值是否为 True 创建一个数组列表。但是在将数组设置为单元格值时出现错误。我错过了什么?

Sub test()
Dim chklst() As String
Dim i As Long

With Worksheets("Select")
For i = 1 To 10
If .Cells(14 + i, 12).Value = "True" Then
chklst() = .Cells(14 + i, 13).Value 'This is where the error shows up
End If
Next i
End With
End Sub

添加 watch 的时候发现 .Cells(14 + i, 13).Value是一个变体/字符串。将变量更改为 Variant 不起作用。将 .Value 更改为 .Text 也不起作用......帮助。

最佳答案

您尚未声明数组的大小。没有声明大小,就没有地方放任何东西。

Sub test()

With Worksheets("Select")

Dim chklst() As String
ReDim chklst(1 To Application.CountIf(.Range(.Cells(15, 12), .Cells(24, 12)), "True"))


Dim i As Long
For i = 1 To 10
If .Cells(14 + i, 12).Value = "True" Then
chklst(i) = .Cells(14 + i, 13).Value 'This is where the error shows up
End If
Next i
End With
End Sub

关于excel - 设置数组值时输入不匹配 13 错误 13,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/53507813/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com