免费帮做excel和vba，20170501结束，需要帮忙的进来 - vba吧

level 5

流大汗4424 楼主

尽量做到每个提问都会解答
简单的会给代码
复杂的，会给思路

2017年04月27日 03点04分 1

level 11

七月在野º

已关注

2017年04月27日 05点04分 2

level 1

zlman2008

你好！我有一个问题
我在excel中需要选取第n到n+4行，然后将其删除
我写如下
Rows(n & "：" & （n+4）).Select
Range("a" & n).Activate
Selection.Delete Shift:=xlUp
但是每次都卡在第一句，每次都报类型不匹配，实在不知道怎么写了

2017年04月27日 08点04分 3

_forever_允儿

英文状态的：

2017年04月27日 08点04分

流大汗4424

range(cells(n,1),cells(n+4,1)).entirerow.delete

2017年04月27日 09点04分

zlman2008

@流大汗4424

谢啦！！！

2017年04月28日 05点04分

level 3

依稀记得他她它

你好，比如输入1234我要让它按每位依次换成二进制，1234就换成0001001000110100，应该怎么去弄？

2017年04月28日 00点04分 4

流大汗4424

用vba来写自定义函数，遍历目标，把每个字符都转成二进制，然后链接起来，如果不会，加我头像里面的企鹅号

2017年04月28日 03点04分

依稀记得他她它

回复流大汗4424 ：加你了，同意一下

2017年04月28日 14点04分

level 5

m一念之间💤

楼主请帮忙解答图片上的问题，谢谢！

2017年04月28日 03点04分 5

流大汗4424

2 7 3 8 6 4 12 13 9 5 10 11 1

2017年04月28日 04点04分

流大汗4424

Sub shishi() mm = 13 nnn = 0 For ss = 1 To 100 If [d1] = 91 Then Exit For For Each nn In Range("a1:a13") If Len(nn.Offset(0, 1)) = 0 Then nnn = nnn + 1 If nnn Mod mm = 0 Then vv = vv + 1 nn.Offset(0, 1) = vv End If End If Next Next End Sub

2017年04月28日 04点04分

m一念之间💤

回复流大汗4424 ：这段代码真心没看懂 [乖]

2017年04月28日 09点04分

level 5

m一念之间💤

能帮忙解释图片中代码的意思吗？

2017年04月28日 07点04分 6

流大汗4424

int是取整，mod是取余数，别的好像没啥了

2017年04月28日 07点04分

m一念之间💤

回复流大汗4424 ：b=int（i/10)mod 10 为什么要这么表达？

2017年04月28日 07点04分

流大汗4424

@m一念之间💤 会得到十位的数字

2017年04月28日 08点04分

m一念之间💤

回复流大汗4424 ：谢谢🙏

2017年04月28日 08点04分

level 1

Dream_转山

楼主好人啊
我刚开始学习VBA，有个字典方面的问题需要请教一下
sheet1里有3列是空的，内容需要从sheet2里获取，我从网上找了别人的字典，修改了一下，但是一直报错，没弄明白是怎么回事。 sheet1里数据范围在80W行左右，DN列

Sub 匹配()
'Columns("L:N").Insert
'Worksheets("sheet1").Range("L1").Value = "开始"
'Worksheets("sheet1").Range("M1").Value = "插入"
'Worksheets("sheet1").Range("N1").Value = "页面布局"
Dim a As Integer, b As Integer
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
arr = Sheet2.Range("d2", Sheet2.[d1048576].End(3))
For a = 2 To UBound(arr)
d(arr(a, 1)) = arr(a, 2)
d1(arr(a, 1)) = arr(a, 3)
d2(arr(a, 1)) = arr(a, 4)
Next
brr = Range("h2", [h1040000].End(3).Offset(, 6))
For b = 2 To UBound(brr)
brr(b, 12) = d(brr(b, 8))
brr(b, 13) = d1(brr(b, 8))
brr(b, 14) = d2(brr(b, 8))
Next
Sheet1.Range("a1").Resize(UBound(brr), 15) = brr
End Sub

2017年04月28日 07点04分 7

流大汗4424

告诉我是哪里不对了

2017年04月28日 08点04分

level 1

Dream_转山

一运行，就这样报错了，，，我也不明白是哪里的问题。我把这些数据粘贴到别人的excel里，就能正常跑出来结果。。。。。