网站 › 『编程语言区』 › 我的第一个用vba解决的问题：ADGUARD的DNS封锁清单

wenshengxp 发表于 2020-11-16 23:08

我的第一个用vba解决的问题：ADGUARD的DNS封锁清单

在大家面前不值一提，不过总是第一次用excel的VBA解决了一个问题，另外，这些地址可能对一些朋友有用，别笑话哦。
不能上传excel文件，发截图吧：
整理前：


整理后：

这是代码：
Sub RVC()
    Dim rmx As Integer
    Dim rmy As Integer
    Dim i As Integer
    Dim rmz As String
    i = 1
    For rmx = 2 To 100 Step 1
    rmy = rmx + 5
    Range("a" & rmx).Select
    Selection.Cut
    Range("b" & i).Select
    ActiveSheet.Paste
    rmz = rmx & ":" & rmy
    Rows(rmz).Select
    Selection.Delete Shift:=xlUp
    i = i + 1
    Next
End Sub

ciker_li 发表于 2020-11-16 23:35

就整理了2行啊

tewboo 发表于 2020-11-17 07:44

Interesting, keep going.
vba感觉挺有用啊, 可以更高效的去处理一些excel的funtion不能解决的问题.

zijing2270 发表于 2020-11-17 08:52

函数经常莫名其妙的BUG，用VBA就没有

Kristine_He 发表于 2020-11-17 09:13

楼主的数据格式规范,可以用函数公式解决,也可以用PowerQuice,删除空单元格后排序,另外,VBA代码有很大的优化空间,可以使用内存数组,字典等提高执行效率处理较多的数据.

ywszhui 发表于 2020-11-17 09:18

收藏了，感谢

xuxin19 发表于 2020-11-17 09:28

vba代码容易上手吗？一直觉得很牛

wenshengxp 发表于 2020-11-17 20:05

xuxin19 发表于 2020-11-17 09:28
vba代码容易上手吗？一直觉得很牛

啥东西都是入门容易学好了难啊，关键平时不用，要是一直使用的就会容易很多。

查看完整版本: 我的第一个用vba解决的问题：ADGUARD的DNS封锁清单