[已解决]提取

fangniuji

拜托帮忙，谢谢！！提取编号。

最佳答案

月排行榜 / 总排行榜

cbg2008

2012-4-29 14:40

Sub test()
Dim x%, y%, z%, Str$
x = Range("a1:a1000").Find("T*").Row
z = x
Do While x < Range("a65536").End(3).Row Or x = z
    Select Case True
    Case Cells(x, 1) Like "T*"
        Str = Cells(x, 1)
        y = 0
    Case Len(Cells(x, 1)) - Len(VBA.Replace(Cells(x, 1), "X", "")) = 1
        y = y + 1
    Case Len(Cells(x, 1)) - Len(VBA.Replace(Cells(x, 1), "X", "")) > 1
        y = y + 10
    End Select
    x = x + 1
    If y > 10 And Right(y, 1) > 0 Then
        Cells(Range("b65536").End(3).Row + 1, 2) = Str
        x = Range("a1:a1000").FindNext(Cells(x, 1)).Row
    End If
Loop
End Sub

跳转到最佳答案楼层

cbg2008

问题描述不够详细，再说明得清楚一点

fangniuji

A列中，短坐标为 X   Y     一个X&nbsp;和一个 Y&nbsp;&nbsp; 长坐标为X Y&nbsp; G85&nbsp; X&nbsp; Y,   两个X和两个Y     中间含G85
现帮忙把 A列一个T有中有长和短坐标排列的在一起的，它的前面T序，提取在B列如结果，谢谢

cbg2008

是不是只要把A列中T开头的单元格提取到B列

fangniuji

T有中有长和短坐标排列的在一起的，这句话什么意思.
改成T中有长和短坐标排列的在一起的，
长 和长
短和 短
前面T不提取
长和短在一起
就提取它前面T序，谢谢！！.
长坐标和短坐标.

cbg2008

Sub test()
Dim x%, y%, z%, Str$
x = Range("a1:a1000").Find("T*").Row
z = x
Do While x < Range("a65536").End(3).Row Or x = z
    Select Case True
    Case Cells(x, 1) Like "T*"
        Str = Cells(x, 1)
        y = 0
    Case Len(Cells(x, 1)) - Len(VBA.Replace(Cells(x, 1), "X", "")) = 1
        y = y + 1
    Case Len(Cells(x, 1)) - Len(VBA.Replace(Cells(x, 1), "X", "")) > 1
        y = y + 10
    End Select
    x = x + 1
    If y > 10 And Right(y, 1) > 0 Then
        Cells(Range("b65536").End(3).Row + 1, 2) = Str
        x = Range("a1:a1000").FindNext(Cells(x, 1)).Row
    End If
Loop
End Sub