if else语句用于复制/粘贴键值

Question

我有一个来自我的工作代码的代码片段，它将来自其他工作表的数据复制并粘贴到一个masterworkbooks主表。下面的代码允许我将数据从BX列复制并粘贴到列A的第一个空行，并对列CC到列B的第一个空行执行相同的操作。但是，我想将列CC粘贴到B列（第10行）。我怎么能这样做？

createInt

现在我想为另一列添加if条件;应该说“如果工作表中的列U”数据“具有单元格值”8636“那么这些值应粘贴到工作表”KomKo“（pastesheet）中的H列;到下一行，因为我使用上面的代码”with “部分。

否则（如果H列中的值不是8636）那么它应该将此列中的值粘贴到工作表“KomKo”（pastesheet）中的G列，并再次具有与上述相同的首选项。

我该怎么做？

Answer 1

尝试

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