[已解决]如何用For To的方法不重复地读出国家及地名

vv36 · 发表于 2014-9-12 16:57

本帖最后由 vv36 于 2014-9-12 17:03 编辑

自己写的用For To的方法读出国家及地名，但是如何不重复地读出呢，就是每个只读出一遍就可以了，请问大神代码要怎么修改呢？

图片1.jpg

Private Sub Workbook_Open()
h = WorksheetFunction.CountA(Range("A:A"))
For i = 2 To h
MsgBox Cells(i, 1)
Next i
End Sub

国家或地区.rar (8.94 KB, 下载次数: 8)

fffox · 发表于 2014-9-12 17:10

如果数据源本身是不重复的，那么循环一遍就可以了。还想怎么操作？

qh8600 · 发表于 2014-9-12 18:42

用字典哈

vv36 · 发表于 2014-9-12 19:06

fffox 发表于 2014-9-12 17:10
如果数据源本身是不重复的，那么循环一遍就可以了。还想怎么操作？

考虑到有重复的呢？

这儿有肥猫 · 发表于 2014-9-12 20:37

数组+字典，百用不爽

无聊的疯子 · 发表于 2014-9-12 20:52

循环的时候,然后查找一下以前有没有,如果有就不提示了,没有才提示

vv36 · 发表于 2014-9-12 23:39

无聊的疯子发表于 2014-9-12 20:52
循环的时候,然后查找一下以前有没有,如果有就不提示了,没有才提示

可以劳驾您写出代码吗？

vv36 · 发表于 2014-9-12 23:45

这儿有肥猫发表于 2014-9-12 20:37
数组+字典，百用不爽

非常感谢您，
好手法，如果另外一种思路，是判断后返回，字典可以吗
图片1.jpg

国家或地区.rar (8.3 KB, 下载次数: 1)

		自动登录	找回密码
密码			注册