Question

我已经问过这个问题而且没有回答。由于某种原因，mods认为锁定它并让我再次问它是一个好主意。我不明白。问题没有得到解答，为什么我被迫再次转发这个？无论如何，这是最初的问题：

看看以下代码。我的问题是我无法弄清楚如何重新定义n整数和b整数。我正在做的是数组sent1已经工作，它填充了大约4个句子。我需要仔细阅读每一句话，但我遇到了麻烦。

有人建议尝试使用以下语法dim sent2（，），但Excel中不允许使用该语法。

<code>
dim sent1() 
dim sent2()

dim n as integer, b as integer, x as integer
dim temp_sent as string
b = 0
For n = 1 to ubound(sent1)

temp_sent = sent1(n)
    for x = 1 to len(temp_sent1)
    code
    if a then
        b = b + 1
        '**THIS IS THE PART OF THE CODE THAT IS NOT WORKING**
        redim preserve sent2(1 to ubound(sent1), b)
        sent2(n,b) = [code]
    next
next
</code>

Excel VBA中的redimension动态多维数组

0 个答案: