如何从EXCEL工作表中找出不同 的若干项,并在批定的单元格开始,连续排列。

来源：百度知道 编辑：UC知道 时间：2024/09/25 18:49:25
原来的项目是不连续的，分布在B列中的若干行。我想在A列中顺序显示B列不同的项目。谢谢，最好用VBA完成。
B列中有若干数。B2,B3,B4。。B7。。。。。B13，这几个数连续排列。A列这空，我想在A列中，从A2开始，连续显示B列中的所有数。B2,B3,B4,B7,B13，说白了就是将这几个数挑出来，但B列所有数不用动。谢谢

回，二楼的方法还是行不通。

Sub try()
Dim ro As Integer
ro = ActiveSheet.UsedRange.Rows.Count
j = 1
For i = 1 To ro
If Cells(i, 2).Value <> "" Then
Cells(j, 1).Value = Cells(i, 2).Value
j = j + 1
End If
Next i
End Sub

不知道对否

我不明白你的意思

可用如下VBA程序实现：
Sub btoa()
Dim ia As Integer, ib As Integer
Range("A2").Value = Range("B2").Value
ia = 2
For ib = 3 To Range("B65536").End(xlUp).Row
If Range("B" & ib).Value = Range("A" & ia).Value + 1 Then
'ia = ia + 1'选出的数在A列连续显示
ia = ib '选出的数显示在B列同一行
Range("A" & ia).Value = Range("B" & ib).Value
End If
Next ib
End Sub