
录入数据是在哪些单元格进行?
你所录制的宏的单元格是固定的,每次都用这个宏,必须要改变单元格区域,否则每次执行都是复制第48行数据。
自己先录制一个宏,然後再打开模组 就可以看到宏的完整:Sub エ栋1()
'
' エ栋1 エ栋
'
'
Rows("4:4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
不知道你这些问题是输入还是从其他地方提取。还是事先输入问题数,先做成空表。举例:如果做成空表的话,可以先用inputd出问题数量窗口,输入数量之后,直接根据数量插入相应的行数,相应区域写入相应数据就可以了。至于生成相应的工作表,做单元格对应的工作表链接,根据数量做个for循环,逐个建立工作表就可以了。具体的最好有原数据样表发过来,具体代码不免费。根据具体的情况和要求不同,代码会不一样的。所以要沟通细节。
如果后边的问题是已有的,可以循环每个工作表,根据工作表名称数量逐行插入并写入对应链接,也可以根据工作表数量计算出多少问题一次性插入,逐个问题及链接写入到相应位置。
循环工作表可以用for each worksheet in worksheets
其中worksheet要用变量,worksheets最好指定工作簿。
如果还有问题,欢迎继续追问或者私信
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)