从目录工作表中选择对应的工作表批量填入目标工作表的A1单元格

gw231

请教各位大佬：要从目录工作表中C列的内容批量填到对应B列的相应工作表中的A1单元格中，比如工作表“501”的“A1”单元格中填入“明细：（5101）主”，谢谢！

gw231

不好意思，忘了上传附件

wbperfect

ActiveSheet.Name = t
ActiveSheet.Cells(1, 1) = Sheets("目录").Cells(Sn.Row, 3)

加这段就OK了

gw231

wbperfect 发表于 2020-3-18 11:29
ActiveSheet.Name = t
ActiveSheet.Cells(1, 1) = Sheets("目录").Cells(Sn.Row, 3)

不好意思，请问这个窗体按钮没有反应？

gw231

wbperfect 发表于 2020-3-18 11:29
ActiveSheet.Name = t
ActiveSheet.Cells(1, 1) = Sheets("目录").Cells(Sn.Row, 3)

加在原本的宏中可以了，如果不用原来的宏，单独写一个代码呢？谢谢！

gw231

不需要新建工作表，在原有工作表中填呢？

wbperfect

1. Sub test()
   
2. Dim str
   
3. For m = 2 To Sheets("目录").UsedRange.Rows.Count
   
4. For n = 2 To Sheets.Count
   
5. str = Sheets(n).Name
   
6. If str = Sheets("目录").Cells(m, 2).Text Then
   
7. Sheets(n).Cells(1, 1) = Sheets("目录").Cells(m, 3)
   
8. End If
   
9. Next
   
10. Next
    
11. End Sub

复制代码

wbperfect

gw231

wbperfect 发表于 2020-3-18 12:16

行了，正是我要的，谢谢！