无法在Excel-VBA中填充二维数组

Question

我正在比较2个不同表格中包含的一些信息。验证工作正常。从那个比较中我必须得到两个值，它正在使用一个，因为我正在填充一维数组。现在我得到了一个2D数组，它似乎没有被填充，我无法理解为什么。这是我的代码。

            If flag = vrep Then
                ReDim Preserve resultado(x, 1)
                resultado(x, 0) = cel1.Value
                resultado(x, 1) = cel1.Offset(, 8).Value
                x = x + 1
            End If

我有点生疏，而且这是一个简单的修复，我希望你能帮助我找出错误。非常感谢提前。这是我填充数组的地方：

Intent sendIntent = new Intent();

Bundle extras = new Bundle();
extras.putString("Key", key.getText().toString());
extras.putString("Ciphertext", cipherText.getText().toString());

sendIntent.setAction(Intent.ACTION_SEND);
sendIntent.putExtras(extras);
sendIntent.setType("text/plain");
startActivity(sendIntent);