EXCEL中用VBA提取单元格。

2025-03-15 16:55:16

推荐回答（2个）

回答1：

幸福啊

代码如下：

Sub test()
Dim mRow As Long, mAry, i, j, d As Object
Set d = CreateObject("scripting.dictionary")
mRow = Cells(Rows.Count, "F").End(3).Row
mAry = Range("F1:G" & mRow)
For i = UBound(mAry, 1) To 1 Step -1
    For j = 1 To 6
        d(Mid(mAry(i, 2), j, 1)) = ""
    Next
    If d.Count = 6 Then
        mRow = mRow - 1
        Cells(mRow + 1, "H").Resize(1, 2) = Application.Index(mAry, i)
    End If
    d.RemoveAll
Next i
End Sub

回答2：

扣扣发模板过来。