日记首页
|
列表
|
添加日记
|
管理登陆
标题：关于Set Sht1 = Sheet5
<span style="font-family: Arial; font-size: 14px;">关于Set Sht1 = Sheet5</span><div><font face="Arial"><span style="font-size: 14px;">当需要读取</span></font><span style="font-family: Arial; font-size: 14px;"> Sheet6，</span><span style="font-family: Arial; font-size: 14px;"> Sheet7，</span><span style="font-family: Arial; font-size: 14px;"> </span><span style="font-family: Arial; font-size: 14px;">Sheet（i）</span><span style="font-family: Arial; font-size: 14px;">等，怎么办，有没有能通用的方法？</span></div><div><div style="font-family: Arial; font-size: 10.5pt;"><br></div><div style=""><div style=""><font face="Arial"><span style="font-size: 14px;"> '6 、字典去重复值法</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"> Dim Myr&, i&</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"> Dim brr, d, k</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"> Set d = CreateObject("Scripting.Dictionary")</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"> Set Sht1 = Sheet5</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"> Myr = Sht1.[d65536].End(xlUp).Row</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"> brr = Sht1.Range("b2:b" & Myr)</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"> For i = 1 To UBound(brr)</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"> If brr(i, 1) <> "" Then '加上这一句防止中间有空值</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"> d(brr(i, 1)) = ""</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"> End If</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"> Next</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"> k = d.keys</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"> ComboBox1.List = k</span></font></div><div style=""><font face="Arial"><span style="font-size: 14px;"> Set d = Nothing</span></font></div></div></div>
