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

wenshengxp

在大家面前不值一提，不过总是第一次用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

就整理了2行啊

tewboo

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

zijing2270

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

Kristine_He

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

ywszhui

收藏了，感谢

xuxin19

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

wenshengxp

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

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