|
本帖最后由 france723 于 2017-5-12 17:00 编辑
使用函数 =INDIRECT(A4&"!Q4") . 比如要在当前工作表A4是人名"张三", 单元格B4输入这个函数获取工作表"张三"的Q4的数值. 单元格C4输入函数 =INDIRECT(A4&"!U4") 获取工作表"张三"的U4的数值.
以此类推. 然后下拉就行
或者vba, 自动生成所有名字, 自己把拼音"HUIZONG"改成汉字"汇总", 详见附件
- Sub aaa()
- For i = 2 To Sheets.Count
- Sheets("HUIZONG").Cells(i + 2, 1) = Sheets(i).Name
- Sheets("HUIZONG").Cells(i + 2, 2) = Sheets(i).Cells(4, 17)
- Sheets("HUIZONG").Cells(i + 2, 3) = Sheets(i).Cells(4, 21)
- Sheets("HUIZONG").Cells(i + 2, 4) = Sheets(i).Cells(4, 18)
- Next
- End Sub
复制代码
|
|