|
发表于 2013-9-21 16:07
|
显示全部楼层
本楼为最佳答案
你的A\B列有看不到的数据存在,不能正确识别currentregion,我清理了一下,附件请测试- Private Sub CommandButton1_Click()
- Dim arr, i&, arr1(1 To 100, 1 To 2), j&
- j = 1
- For i = 1 To [a65536].End(3).Row
- If Cells(i, 1) <> "" Then
- arr = Cells(i, 1).CurrentRegion
- arr1(j, 1) = Application.Min(Application.Index(arr, 0, 1))
- arr1(j, 2) = Application.Max(Application.Index(arr, 0, 2))
- j = j + 1
- i = i + UBound(arr)
- End If
- Next i
- [d1].Resize(100, 2) = arr1
- End Sub
复制代码 |
|