[已解决]求助VBA

GYUHJ

zjdh 发表于 2012-5-10 20:49
也可以啊：
Sub test()
    Dim B1(), B2(), BRR(), CRR()

谢谢你是好的了,我不懂给你增加了很多难度

zjdh

其实
   C1 = Range("T15").End(1).Column
    If C1 < 14 Then
        C1 = 14
    Else
        C1 = C1 + 1
    End If
    C2 = Range("AB15").End(1).Column
    If C2 < 22 Then
        C2 = 22
    Else
        C2 = C2 + 1
    End If

可用以下语句代替

   C1 = Application.CountA(Range("N15:S15")) + 14
    C2 = Application.CountA(Range("V15:Z15")) + 22