Excel VBA For语句
我想为下面的代码创build一个循环。 我唯一需要循环做的是移到下一列（这将是F列）。 行将保持不变。 有什么build议么？
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) For x= 5 to 6 With xlSheet.columns(x) .cells(23).value=Me.overrings 'etc End with Next x
如果你真的想要在相邻的单元格中有相同的值，可以像这样修改现有的代码（不需要循环）：
xlSheet.Range("e23:f23") = (Me.overrings)