用excel宏导入数据怎么搞啊?
举例。
有数据表A列B列,要求将A列数据排除B列后写入到D列。
初据如图:
编制代码如下:
Sub 数据排除()
Dim mys As String
Dim I, J As Integer
Dim b As Object
mys = "数据排除"
Set b = CreateObject("Scripting.Dictionary")
Sheets(mys).Select
I = 2
Do While Cells(I, 2) "" '将名单放入字典
m_key = Cells(I, 2)
M_ITEM = I - 1
If Not b.Exists(m_key) Then
b.Add m_key, M_ITEM
End If
I = I 1
Loop
J = 2 '记录C列写入数据的最新行号
I = 2
Do While Cells(I, 1) "" '将A列数据排除B列后存入C列
m_key = Cells(I, 1)
If Not b.Exists(m_key) Then
Cells(J, 3) = m_key
J = J 1
End If
I = I 1
Loop
End Sub
追问文不对题。