VBA Excel单元格组合脚本1004错误

这个脚本应该组合两组四列的每一个单元格，并在相邻的单元格上打印每个组合。 我已经有两套三个电池的工作，但现在我得到了一个

1004应用程序定义或对象定义的错误

它强调：

Set out_1 = Range("I1", Range("L1").Offset(UBound(c1) * UBound(c2) * UBound(c3) * UBound(c7))) 

我不知道如何解决这个问题，任何人都可以帮忙吗？

 Sub Combinations() Dim c1() As Variant Dim c2() As Variant Dim c3() As Variant Dim c4() As Variant Dim c5() As Variant Dim c6() As Variant Dim c7() As Variant Dim c8() As Variant Dim out1() As Variant Dim out2() As Variant Dim j, k, l, m, n As Long Dim col1 As Range Dim col2 As Range Dim col3 As Range Dim col4 As Range Dim col5 As Range Dim col6 As Range Dim col7 As Range Dim col8 As Range Dim out_1 As Range Dim out_2 As Range Set col1 = Range("A1", Range("A1").End(xlDown)) Set col2 = Range("C1", Range("C1").End(xlDown)) Set col3 = Range("E1", Range("E1").End(xlDown)) Set col4 = Range("B1", Range("B1").End(xlDown)) Set col5 = Range("D1", Range("D1").End(xlDown)) Set col6 = Range("F1", Range("F1").End(xlDown)) Set col7 = Range("G1", Range("G1").End(xlDown)) Set col8 = Range("H1", Range("H1").End(xlDown)) c1 = col1 c2 = col2 c3 = col3 c4 = col4 c5 = col5 c6 = col6 c7 = col7 c8 = col8 Set out_1 = Range("I1", Range("L1").Offset(UBound(c1) * UBound(c2) * UBound(c3) * UBound(c7))) Set out_2 = Range("M1", Range("P1").Offset(UBound(c4) * UBound(c5) * UBound(c6) * UBound(c8))) out1 = out_1 out2 = out_2 j = 1 k = 1 l = 1 m = 1 n = 1 Do While j <= UBound(c1) Do While k <= UBound(c2) Do While l <= UBound(c3) Do While m <= UBound(c7) out1(n, 1) = c1(j, 1) out1(n, 2) = c2(k, 1) out1(n, 3) = c3(l, 1) out1(n, 4) = c7(m, 1) n = n + 1 m = m + 1 Loop m = m l = l + 1 Loop l = 1 k = k + 1 Loop k = 1 j = j + 1 Loop j = 1 k = 1 l = 1 m = 1 n = 1 Do While j <= UBound(c4) Do While k <= UBound(c5) Do While l <= UBound(c6) Do While m <= UBound(c8) out1(n, 1) = c1(j, 1) out1(n, 2) = c2(k, 1) out1(n, 3) = c3(l, 1) out1(n, 4) = c8(m, 1) n = n + 1 m = m + 1 Loop m = m l = l + 1 Loop l = 1 k = k + 1 Loop k = 1 j = j + 1 Loop out_1.Value = out1 out_2.Value = out2 End Sub 

Answer 1

考虑@ ScottCraner的评论。

此外，即使你确定所有的列至less有一个非空单元格，如果这是第1行，那么xlDown方法将使Ubound()返回100万！

在这种情况下，replace：

 Set col1 = Range("A1", Range("A1").End(xlDown)) Set col2 = Range("C1", Range("C1").End(xlDown)) ... 

与：

 Set col1 = Range("A1", Cells(Rows.Count, 1).End(xlUp)) Set col2 = Range("C1", Cells(Rows.Count, 3).End(xlUp)) '<--keep numeric column index in "Cells(Rows.Count,...)" synchronized with string column index in Range("...1") ...