Question

excel设置2个变量循环宏

大哥们救救小弟吧，我想设置2个变量，弱弱的问一句，地址能不能设置变量的？

Answer 1

如此用vba是不可取的，难道你要把这一百多个表一一打开，再来汇总？应该是用vba不打开或者自动打开这些表来读取数据进行汇总！

Answer 2

只要不是VB关键字和保留字,就可用变量名,step 1就不用写了,循环默认的增量就是1

Answer 3

你的代码有误。。请粘贴你的代码。再帮你改一下

追问

Dim a, b As Integer
For a = 3 To 7 Step 1
For b = 130100 To 130125 Step 1
Range("E" & a + 1).Select
ActiveCell.FormulaR1C1 = "=[b + 1.XLS]装饰工程成本控制明细表!R2C10"
Next
End Sub
大哥帮帮忙吧

追答

你有100多个表，每个表取i2的值，放进当前表的E列？但是你E列就只有5个单元格。如何办到？将错就错，帮你改一下。你要准确、描述你的要求。以便重新设计代码。
sub mysub()
Dim a, b As Integer
For a = 4 To 8
For b = 130101 To 130126
activesheet.Range("E" & a )="["& b &"装饰工程成本控制明细表".cells(2,10)
Next b
next a
End Sub

追问

 

 

 

  

 

上面的宏是我瞎编的，我想要E列的递增+1 就是shep 1我就会这个，然后地址的地方     \2013\[130101.XLS]装饰工程成本控制明细表'!   也要递增+1 之前的b就是我假设的130101.XLS，我的数据很多，这张是汇总表，很多分表的内容都要汇总过来，分表我集中放在一个文件夹里，只要总表改地址他就会自动更新，但是手动改有麻烦，不知道大哥你懂得意思吗？是要改地址中的编号130101.。

追答

sub mysub()
Dim a As Integer
For a = 3 To cells(65536,3).end(xlup).row
cells(a,5)=thisworkbook.path&"2013\"&"right(cells(a,3),len(cells(a,3)-2)&"装饰工程成本控制明细表".cells(2,10)
next a
End Sub

试试。我没试验。

Answer 4

应该说是用变量表示某地址吧？可以的