Question

excel求编一段VBA代码

比如我有10张工作表，每张工作表的A1为此工作表的标题，A列第2行往下初始值都为空，根据内容选择填写（比如写数字1）。B列第2行往下都为备选项内容。现在我要生成一张汇总表（第11张工作表)，当前面的工作表中，A列中有“1”（即不为空）时，在汇总表中生成：一、标题，1.内容。二、标题，1.内容。一和1都是自动的编号。

Answer 1

将相关信息存入二维数组arr（n,m）（n表示sheet数，m表示该sheet下b列含值行数），最后将数组导出就可以了,最后张sheet是你的汇总表
dim arr()
for n = 1 to thisworkbook.worksheets.count -1
for m = 1 to thisworkbook.worksheets(n).userange.rows.count
arr(n,m) = 。。。

不明白“A列第2行往下初始值都为空，根据内容选择填写（比如写数字1）”。。。
思路就这个思路，自己整整吧

Answer 2

代码需要沟通确定要求。

追问

根据图片大概能明白我意思么

追答

明白了，不免费。