初来，请教高手个问题

nirvana · 发表于 2002-9-22 22:11

在为单位作一个vba时，需要解决个问题。一个excel表，顺序是打乱的，需要第一列是地区名，相同的地区放在一起，也就是同一地区的筛选出来。地区的排列顺序不是按名称的。地区是固定的几个，但每次它们相对的项目数量不同。具体例子见附件。（只留了两项） Sheet1变Sheet2 [upload=rar]uploadImages/200292222111525910.rar[/upload]

zeuce · 发表于 2002-9-23 19:52

是不是根据sheet1得到sheet2，表1可能还有其它项，都随地区转到sheet2?

Easonxu · 发表于 2002-9-24 02:59

老兄你讲得不明不白我也只能看着办! 请试试: sub select Dim myrow As Long mystop = Range("a1").CurrentRegion.rows.Count For myrow = 2 To mystop-1 If Cells(myrow, 1) <> Cells(myrow - 1, 1) Then Cells(myrow, 1).Select ActiveCell.PageBreak = xlPageBreakManual End If Next myrow 意思为循环查找Sheet中数据,当上下不同时,自动分隔, 如有其他要求可在循环中加入,如其他功能请阐述清楚

		自动登录	找回密码
密码			免费注册

初来，请教高手个问题

请试试:

最新热点 /1