excel 超链接另一个sheet 急在线等~！

来源：百度知道 编辑：UC知道 时间：2024/06/20 19:01:38
有一张总表（汇总)和若干张分表（02、03、04、05等等）。
我在总表（汇总)中A列里面输入02。想让02这一行的其他的数据在分表格02中自动复制生成。我在总表（汇总)中A列里面输入03，想让03这一行的数据在分表格03中自动复制生成。
今天上午 10多就要用急~！
请会表格的好朋友帮忙~！
谢谢了，在此敬礼。

Sub M_自动分表()
Dim a, b As Worksheet
aa = "" & Cells(1, 3).Value
Set a = Worksheets(aa)
Set b = Worksheets("汇总")
M_删除分表

For i = 3 To b.Range("A65536").End(xlUp).Row
If b.Cells(i, 1).Value = aa Then
y = a.Range("A65536").End(xlUp).Row + 1
a.Cells(y, 1).Value = Cells(i, 1).Value
a.Cells(y, 2).Value = Cells(i, 2).Value
a.Cells(y, 3).Value = Cells(i, 3).Value
a.Cells(y, 4).Value = Cells(i, 4).Value
a.Cells(y, 5).Value = Cells(i, 5).Value
'a.Cells(y, 6).Value = Cells(i, 2).Value
a.Cells(y, 7).Value = Cells(i, 7).Value
a.Cells(y, 8).Value = Cells(i, 8).Value
a.Cells(y, 9).Value = Cells(i, 9).Value
'a.Cells(y, 10).Value = Cells(i, 2).Value
a.Cells(y, 11).Value = Cells(