Vba代码if语句

Question

我是使用vba代码的初学者，我需要一个语句函数使其在第一列的行偏移量= 1048567时继续处理时使其移动到具有新的开始单元格输出的新列vba代码

If sq(lUser_1, 2) & "" <> sqq(lUser_2) Then 

    'we found a new combination, output to screen 
    Range(sStartingCellOutput).Offset(lRowOffset).Resize(, 3).Value = Array(sq(lUser_1, 2), sqq(lUser_2), rTopic.Value) 

    'increment the counter 
    lRowOffset = lRowOffset + 1 

End If 

Answer 1

您需要引入另一个变量来处理列偏移量。

dim lColOffset as long 
lColOffset = 0 
If sq(lUser_1, 2) & "" <> sqq(lUser_2) Then 

    'we found a new combination, output to screen 
    Range(sStartingCellOutput).Offset(lRowOffset, lColOffset).Resize(1, 3).Value = _ 
     Array(sq(lUser_1, 2), sqq(lUser_2), rTopic.Value) 

    'increment the counter 
    lRowOffset = lRowOffset + 1 
    if lRowOffset >= Rows.Count then 
     lRowOffset = 0 
     lColOffset = lColOffset + 4 
    end if 

End If 

我将列偏移量错开了4.您将三个值放入行中，这样会留下空白列。调整stag is是你的愿望。