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

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

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

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

楼主好人啊
我刚开始学习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

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

你好，我想写个程序，怎么自动将选中的单元格所在的行列高亮显示，而不改变单元格本身的颜色？

我来晚了，不晓得还有没有机会。

楼主大大，Excel怎么通过收集好的两个数值查第三个数值。这第三个数值在另一个软件的数据库。

手头有一个Excel 表格，要根据B2那一列中的不同数据拆分成不同的n个新的表格，然后存放到某个文件夹中。求大神帮忙啊！！！！