Question

excel运行宏 执行一个循环任务

怎么把运行过程生成一个表？
在线等答案
下面是一个迭代 通过改变 T 1~12点的温度数值都会变

T从100℃~1000℃不断取值 用下面宏完成该操作：
Sub 宏1()'' 宏1 宏'
' i = 100 Do While i < 1100 Range("J15").Select ActiveCell.FormulaR1C1 = i Range("K15").Select i = i + 100 Loop End Sub

可是执行宏之后只有T=1000℃，1~12点的温度值
但是我想把宏运行的过程，T每次取不同值的结果生成一表格：

不知道怎么弄





Answer 1

Sub Macro2()
Dim MBWJLJ As String '目标文件路劲
Dim MBWJNC As String '目标文件名称
Dim MBWJSH As String '目标工作表
Dim HZWJNC As String '汇总文件名称
Dim HZWJSH As String '汇总工作表
Dim I As Integer '循环自然自然数
Dim K As Integer '循环自然自然数
Dim MBWJS As Integer '目标文件数
Dim HS As Integer '目标工作表行数
Dim LS As Integer '目标工作表列数
Dim H As Integer '循环自然自然数
Dim L As Integer '循环自然自然数

HZWJNC = ActiveWorkbook.Name '汇总表文件名
HZWJSH = ActiveSheet.Name '汇总表表名
MBWJS = 5 '假若参加汇总目标文件数是5个,如果你的文件数是几,5就改成几
HS = 10 '假若参加汇总目标文件表中的行数是10行,如果你的表行数是几,10就改成几
LS = 10 '假若参加汇总目标文件表中的列数是10列,如果你的表列数是几,10就改成几
K = 1
MBWJLJ = ActiveWorkbook.Path & "\"

'上面是目标文件路径
'下面开始循环

For I = 1 To MBWJS
MBWJNC = "L" & 201310000 + I & ".xlsx"
Workbooks.Open Filename:=MBWJLJ & MBWJNC
Sheets("Sheet1").Select
MBWJSH = ActiveSheet.Name
For H = 1 To HS
For L = 1 To LS
Workbooks(HZWJNC).Sheets(HZWJSH).Cells(H + K, L) = Workbooks(MBWJNC).Sheets(MBWJSH).Cells(H + 1, L)
Next L
Next H
K = K + H - 1
Workbooks(MBWJNC).Close
Windows(HZWJNC).Activate
Next I

End Sub

追问

其实我问的很简单 没这么复杂 836795665 我把表发给你 你看看

追答

FOR  L TO LS

 

NEXT L

 

这个就是一组循环，发给你看的就是一个汇总表引用多个文件表1中的数据的 宏，供你参考的。

 

 

楼主的取值循环，加我的填表循环，就可以实现啦

Answer 2

请详细说明什么样的过程，生成什么样的表。
VBA指的是定制的程序，，你怎么定制，依据你的表格内容，不是嘴巴一说就都知道是什么东西的玩意。。

追问

补充好了 求教老师

追答

没有看懂这个图片