不能发帖了

lihui8171012 · 发表于 2016-10-22 14:01

赵老师，怎么运行时出现subscript out of range报错！

lihui8171012 · 发表于 2016-10-26 16:59

http://club.excelhome.net/thread-1308224-1-1.html请赵老师帮忙看看！谢谢！

可道可 · 发表于 2016-11-9 10:13

问题解决了就好

逗比专用小马甲 · 发表于 2017-3-21 14:55

zhaogang1960 发表于 2015-12-17 00:40
谢谢K总答复

大神，能不能帮我解决这个问题？http://club.excelhome.net/thread-1335312-1-1.html

wzp8888 · 发表于 2017-7-18 21:40

赵老师你好！！请教一个问题，抽空帮我看看好吗？万分感谢！！！http://club.excelhome.net/thread-1358066-1-1.html

055678 · 发表于 2017-9-17 17:37

求教老师，使用VBA将表格中的数据sheet2的行数据比对sheet1中数据，输出不在sheet1中的数据到... http://club.excelhome.net/thread-1369447-1-1.html (出处: ExcelHome技术论坛) 我自己写的代码不知道哪里有问题，请教！ Sub test() Dim arr, arr1, drow, d As Object, i%, j%, k% arr = Sheet1.[a1].CurrentRegion arr1 = Sheet2.[a1].CurrentRegion Set d = CreateObject("scripting.dictionary") For k = 2 To UBound(arr) d(arr(k, 1)) = "" Next For i = 2 To UBound(arr1, 1) For j = 2 To UBound(arr1, 2) If d.exists(arr1(i, j)) Then d.Remove (arr1(i, j)) Else d(arr1(i, j)) = "" 'Exit For End If Next Next drow = Sheet2.[a65536].End(xlUp).Row Sheet3.Range("B2").Resize(drow-1, d.Count) = d.keys End Sub

达州张先生 · 发表于 2017-10-10 21:02

好久没见赵老师上论坛了，怪想念的，多谢赵老师过去的帮助！

scason2010 · 发表于 2017-11-25 22:20

zhaogang1960 发表于 2015-12-17 00:40
谢谢K总答复

不能屏蔽大神的

scgyems · 发表于 2019-1-9 23:14

zhaogang1960大圣：您好！
我在论坛里面发了求助帖，但没有人回复，很着急。我看到您以前给提问题的人都有非常满意的答案，所以冒昧向您求助。发个附件，麻烦您帮忙解决。您可发我QQ邮箱：407570620@qq.com。冒昧之处请谅解。
非常感谢！

sunnyupday · 发表于 2019-3-28 16:29

老师请帮我看下这个问题怎么解决，谢谢！http://club.excelhome.net/thread-1468688-1-1.html

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

[已答复] 不能发帖了