如果列4和列8中的两个条件成立，则从另一个工作表上的12列写入值

Sub CreateTable() Dim bf As Boolean Dim aTable(), aRes() Dim i As Long, k As Long, n As Long With Worksheets("DOHADNÉ POLOŽKY") ' List s tabulkou, kde se hleda i = .Cells(.Rows.Count, "A").End(xlUp).row aTable = .Range("A1:P" & i).Value ' tabulka do pole ReDim aRes(1 To i + 1, 1 To 1) ' velikost pole End With For i = 1 To UBound(aTable) ' od 1 do poctu radky tabulky If aTable(i, 1) <> Empty Then ' kdyz neni prazdna If aTable(i, 4) = "Depo" And aTable(i, 8) = "CZK" Then aTable(i, 12) = aRes(i, 1): i = i + 1 End If End If Next i ' upload vysledku na list do sloupce J Worksheets("List1").Range("A1").Resize(UBound(aRes), 1).Value = aRes Range("A1").Select ActiveCell.FormulaR1C1 = "KUK" End Sub 

有什么不对 它没有错误，但它并没有写入数组我认为。 所以Worksheet（“List1”）上的结果只是空的。