[已解决]辅导坐标提前问题，帮忙一下，谢谢！！！

fangniuji

如果A列%上有C后面一样的如A列T03C.0118，T18C.0118和T05C.0115，T08C.0115，就把%以下它们相同后面对应坐标，放在前面坐标前面，谢谢！帮忙改写一下Vba！！我不能运行这两个代码，因为A列数据太多了就如F列，结果如G列，谢谢！！！

Sub test()
    Dim i As Long, j As Long, k As Long
    Dim x As Long, y As Long, z As Long
    Dim s1 As String, s2 As String
    Application.ScreenUpdating = False
    z = Range("a:a").Find("%").Row
    For i = 1 To z - 2
        For j = i + 1 To z - 1
            If Right(Trim(Cells(i, 1)), 6) = Right(Trim(Cells(j, 1)), 6) Then
                s1 = "T" & Val(Mid(Cells(i, 1), 2, 2))
                s2 = "T" & Val(Mid(Cells(j, 1), 2, 2))
                x = Range("a:a").Find(s2, , , xlWhole).Row
                y = x
                Do
                    y = y + 1
                Loop Until Len(Trim(Cells(y, 1))) < 4
                Range(Cells(x, 1), Cells(y - 1, 1)).Cut
                Range("a:a").Find(s1, , , xlWhole).Insert shift:=xlDown
                Exit For
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub
Sub zhengli()
  Dim i As Long, j As Long, k As Long
    Dim x As Long, y As Long, z As Long
    Dim s1 As String, s2 As String
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    z = Range("a:a").Find("%").Row
    For i = 1 To z - 2
        For j = i + 1 To z - 1
            If Right(Trim(Cells(i, 1)), 6) = Right(Trim(Cells(j, 1)), 6) Then
              If Cells(j, 5) <> "标识孔" Then
                s1 = "T" & Val(Mid(Cells(i, 1), 2, 2))
                s2 = "T" & Val(Mid(Cells(j, 1), 2, 2))
                x = Range("a:a").Find(s2, , , xlWhole).Row
                y = x
                Do
                    y = y + 1
                Loop Until Len(Trim(Cells(y, 1))) < 4
                Range(Cells(x, 1), Cells(y - 1, 1)).Cut
                Range("a:a").Find(s1, , , xlWhole).Insert shift:=xlDown
                Exit For
              End If
            End If
        Next
    Next
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-11-25 11:43

(, 下载次数: 0)

上传

点击文件名下载附件
我把B列数据复制到A列，运行后，看看这个正确结果的图，A61:A64剪切后，插入到A23上面，这样才位置提前了嘛。
你原来A列数据那是原地剪，原地插，怎么可能位置会提前了。

跳转到最佳答案楼层

hwc2ycy

运行没任何反应啊。

fangniuji

hwc2ycy 发表于 2012-11-25 08:05
运行没任何反应啊。

早安，谢谢你，帮我改一下，谢谢！！！

fangniuji

hwc2ycy 发表于 2012-11-25 08:05
运行没任何反应啊。

我运行代码如果是b列上数据，就有C列结果，运行A列上数据，就不运行，要求：数据%上有C后面一样的如b列T03C.0236，T11C.0236和T05C.0115，T08C.0115，就把%以下它们相同后面对应坐标，放在前面坐标前面，B列数据结果如C列，帮我改一下代码，可以运行A列数据，谢谢！！

hwc2ycy

“我运行代码如果是b列上数据，就有C列结果，运行A列上数据，就不运行，要求：数据%上有C后面一样的如b列T03C.0236，T11C.0236和T05C.0115，T08C.0115，就把%以下它们相同后面对应坐标，放在前面坐标前面，B列数据结果如C列，帮我改一下代码，可以运行A列数据，谢谢！！”

你每次提的要求怎么就这么让人难以读懂了。
C后面是啥，如果要求是C列的数据就C列。
EXCEL里单元格都有表示方法，是列就是列，是行就是行，是某个具体的单元格就写具体的单元格地址，不要用什么后面，前面，上面之类的话。

“运行A列上数据，就不运行”这句话，你给好好解释下，我都不知道该如何来想了。

fangniuji

hwc2ycy 发表于 2012-11-25 10:44
“我运行代码如果是b列上数据，就有C列结果，运行A列上数据，就不运行，要求：数据%上有C后面一样的如b列T0 ...

要求：数据%上有“C”字后面一样的如b列T03C.0236，T11C.0236和T05C.0115，T08C.0115，这边的C指T08C.0115数据里的C
可以运行A列数据，谢谢！！抱歉我表达不好，抱歉！！！

fangniuji

hwc2ycy 发表于 2012-11-25 10:44
“我运行代码如果是b列上数据，就有C列结果，运行A列上数据，就不运行，要求：数据%上有C后面一样的如b列T0 ...

现A列数据，相同孔径，执行宏代码后，数据不提前。如果把B列数据复制在A列，执行宏，就有C列结果。

hwc2ycy

fangniuji 发表于 2012-11-25 11:04
现A列数据，相同孔径，执行宏代码后，数据不提前。如果把B列数据复制在A列，执行宏，就有C列结果。

数据既然没有提前，那肯定是你思路上的问题啊。
或者是你的数据在程序判断看来，不需要提前嘛。
你上个如果A列提前的效果瞧瞧。

hwc2ycy

hwc2ycy