if else語句複製/粘貼鍵值

Question

我有一段代碼從我的工作代碼中複製並粘貼其他工作表中的數據到一個masterworkbooks主表。下面的代碼允許我將列BX中的數據複製並粘貼到列A的第一個空行，然後將列CC中的數據複製到列B的第一個空行。然而，我想將列CC粘貼到列B（第10）行。我怎樣才能做到這一點？

lRow = copySheet.Cells(copySheet.Rows.Count, 1).End(xlUp).Row 

With copySheet.Range("BX2:BX" & lRow) 
pasteSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(.Rows.Count, .Columns.Count) = .Value 
End With 

'Determine last row of Column B in copySheet 
lRow = copySheet.Cells(copySheet.Rows.Count, 1).End(xlUp).Row 

With copySheet.Range("CC2:CC" & lRow) 
pasteSheet.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Resize(.Rows.Count, .Columns.Count) = .Value 
End With 

現在我想爲另一列添加if條件;這應該說「如果工作表中的列U的數據」單元格值爲「8636」，那麼這些值應粘貼到工作表「KomKo」（貼圖）中的H列;到下一行，因爲我在上面的代碼中使用了「with 「部分。

品（如果在H列的值不爲8636），那麼它應該粘貼此列G列在工作表內的值‘KomKo’（pastesheet）具有相同的優先以上一次。

我怎樣才能做到這一點？

Answer 1

嘗試

if worksheetfunction.CountIf(Column("U"),"8636")>0 then 
    *Copy to Column H* 
else 
    *Copy to Column G* 
end if