多列转一列

FU8989

补充;  A列是引用其它列过来的 不是手工输入的

zhaogang1960

请测试
Sub Macro1()
    Dim arr, brr(), crr(), temp$, i&, m%, n%, s1$, s2$
    s1 = "" & [b3]
    s2 = "" & [c3]
    arr = Range("A4:A" & Range("A65536").End(xlUp).Row)
    For i = 1 To UBound(arr)
        temp = Format(arr(i, 1), "00")
        If Left(temp, 1) = s1 Then
            m = m + 1
            ReDim Preserve brr(1 To m)
            brr(m) = arr(i, 1)
        End If
        If Right(temp, 1) = s2 Then
            n = n + 1
            ReDim Preserve crr(1 To n)
            crr(n) = arr(i, 1)
        End If
    Next
    ActiveSheet.UsedRange.Offset(2, 1).Clear
    With Range("B4").Resize(m)
        .Value = WorksheetFunction.Transpose(brr)
        .Sort Key1:=Range("B4").Resize(m), Order1:=xlAscending
    End With
    With Range("c4").Resize(n)
        .Value = WorksheetFunction.Transpose(crr)
        .Sort Key1:=Range("c4").Resize(n), Order1:=xlAscending
    End With
    Range("B4").Resize(UBound(arr), 2).NumberFormatLocal = "00"
End Sub

FU8989

很好 谢谢你

FU8989

师傅 你好 麻烦帮我解决这个问题 有点难度 谢谢

zhaogang1960

不好意思，看不懂了

FU8989

看看附件  谢谢

FU8989

这个按钮能做吗 谢谢你

FU8989

师傅 你好 麻烦你帮我写这个宏  谢谢你

FU8989

师傅 最近忙吗 有空的话帮我看看这个附件 谢谢你

FU8989

师傅  你好 帮忙解决
Private Sub Worksheet_Calculate()
    [C5].Interior.ColorIndex = 3 - ([C5].Interior.ColorIndex = 3) * 2
End Sub
这是C5更新内容就变色的代码 现在要增加F5  怎样设置   谢谢你 麻烦你了