[已解决]如何根据同列下一行特定符号排序

qianzhi · 发表于 2014-4-1 22:40

本帖最后由 qianzhi 于 2014-4-2 06:01 编辑

想要达到的效果，是j列中如果后面一行没有！的向前提，如/02下面包含！则要后移，而其他符号&不作判断，保持原来位置，如左侧黄色的部分转移到右侧颜色部分。数量级挺大，请各位高手协助解决

工作簿1.rar (14.76 KB, 下载次数: 13)

sgxb123431380 · 发表于 2014-4-2 08:10

你描述的太含糊了，要求很不明确，希望多做一些不同类型的例子来说明一下

dsmch · 发表于 2014-4-2 14:25

本帖最后由 dsmch 于 2014-4-2 18:37 编辑

Sub Macro1()
Dim rng As Range, i&, x&
For i = Cells(Rows.Count, "h").End(xlUp).Row To 5 Step -2
If Not Cells(i, "j") Like "!*" Then
If rng Is Nothing Then Set rng = Cells(i, 1).Resize(2, 10) Else Set rng = Union(rng, Cells(i, 1).Resize(2, 10))
Else
x = Range("h3:i" & i).Find("组焊件", searchdirection:=xlPrevious).Row
rng.Cut
Cells(x, 1).Resize(2, 10).Insert Shift:=xlDown
Set rng = Nothing
i = x - 2
End If
Next
End Sub

复制代码

dsmch · 发表于 2014-4-2 18:39

………………

qianzhi · 发表于 2014-4-5 21:22

dsmch 发表于 2014-4-2 18:39
………………

21.rar (13.17 KB, 下载次数: 2)

dsmch · 发表于 2014-4-5 21:29

If Not Cells(mm, "m") Like "!*" Then

qianzhi · 发表于 2014-4-5 21:55

本帖最后由 qianzhi 于 2014-4-5 21:59 编辑

21.rar (13.18 KB, 下载次数: 1)

dsmch · 发表于 2014-4-5 22:10

qianzhi 发表于 2014-4-5 21:55
还是不行呀。同时还增加了一些转行条件，请求再次帮忙。

建议另发新帖求助，并模拟结果

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