Excel VBA：将二维数组写入另一个工作表

我有一个VBA函数创build一个二维数组res 。 我想将数组数据写入另一个工作表，而不是执行该函数的当前工作表。 这应该是相当直接的，但我是新的VBA。

代码在最后一行结束，没有错误信息或写入任何数据。

 Dim wb As Workbook Dim ws As Worksheet Set wb = ThisWorkbook Set ws = wb.Worksheets("Output") Dim out As Range Set out = ws.Range("A1") out.Resize(UBound(res, 1), UBound(res, 2)).Value = res 

Answer 1

你现有的代码应该工作。

Res是否包含数据？

下面的示例填充数组，检查它是否不止一个单元格，然后转储回工作表。

 Dim wb As Workbook Dim ws As Worksheet Dim ws2 As Worksheet Dim rng1 As Range Dim res Set wb = ThisWorkbook Set ws = wb.Worksheets("Input") Set ws1 = wb.Worksheets("Output") Set rng1 = ws.Range("A1:B10") If rng1.Cells.Count > 1 Then res = rng1.Value2 ws1.[a1].Resize(UBound(res, 1), UBound(res, 2)).Value2 = res End If