Excel VBA For statement

我想为下面的代码创建一个循环。我需要循环做的唯一事情就是转到下一列（这将是F列）。行将保持不变。有什么建议么？Excel VBA For statement

xlSheet.Range("e23") = (Me.overrings) 
xlSheet.Range("e33") = (Me.overingTax) 
xlSheet.Range("e27") = (Me.Sampling) 
xlSheet.Range("e28") = (Me.Waste) 
xlSheet.Range("e29") = (Me.Promo) 
xlSheet.Range("e42") = (Me.Online) 
xlSheet.Range("e34") = (Me.freebieTax) 
xlSheet.Range("e49") = (Me.totalDepo) 
xlSheet.Range("e38") = (Me.CreditCards)

来源

2011-11-23 user1061123

For x= 5 to 6 
With xlSheet.columns(x) 
    .cells(23).value=Me.overrings 
    'etc 
End with 
Next x

来源

2011-11-23 04:48:36

是有可能使这种功能我可以根据我的if语句将for语句从（对于x = 5到5）更改为（For x = 6到6）到（For x = 7到7）。 – user1061123

只需使用变量而不是5和6.或更新您的问题更多的上下文。 –

如果你真的想在相邻单元格的值相同，您可以修改现有的代码是这样（无需环路）：

xlSheet.Range("e23:f23") = (Me.overrings)

来源

2011-11-23 05:15:47

Excel VBA For statement

回答

相关问题