小编D H*_*org的帖子

我有这个问题,我正在努力解决.每天我都会收到一份报告,其中包含我需要发送的数据.所以为了使它更容易一点,我试图找到一个宏来创建一个带有代理名称的新工作表,并在创建的工作表中移动每个代理的数据......

我找到了一个假设做得很多的人.但由于这不是我的专业领域,我无法修改它以处理我的请求,甚至可能使其工作.任何人都有任何想法？

Const cl& = 2
Const datz& = 1

Dim a As Variant, x As Worksheet, sh As Worksheet
Dim rws&, cls&, p&, i&, ri&, j&
Dim u(), b As Boolean, y

Application.ScreenUpdating = False
Sheets("Sheet1").Activate
rws = Cells.Find("*", , , , xlByRows, xlPrevious).Row
cls = Cells.Find("*", , , , xlByColumns, xlPrevious).Column

Set x = Sheets.Add(After:=Sheets("Sheet1"))
Sheets("Sheet1").Cells(1).Resize(rws, cls).Copy x.Cells(1)
Set a = x.Cells(1).Resize(rws, cls)
a.Sort a(1, cl), 2, Header:=xlYes
a = a.Resize(rws + 1)
p = 2

For i …