Question

VBA中运行错误91：对象变量或with块变量未设置，请大家帮忙看看。

代码如下：
Private Sub 突出显示样本()
Dim n As Integer
Dim m As Integer
Dim i, j As Integer
Dim rng As Range
n = 20
m = 3
For i = 1 To m
For j = 1 To n
If Range("M2").Offset(i - 1, 0).Value = Range("A2").Offset(j - 1, 0).Value Then
rng = Range(Cells(2, 1), Cells(2, 13)).Offset(j - 1, 0)
rng.Select
With Selection.Interior
.Color = 65535 '单元格底纹的颜色或图形对象的填充
End With
End If
Next j
Next i
End Sub

Answer 1

ng = Range(Cells(2, 1), Cells(2, 13)).Offset(j - 1, 0)

改 

SET rng = Range(Cells(2, 1), Cells(2, 13)).Offset(j - 1, 0)

Visual Basic for Applications(VBA)是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件，也可说是一种应用程式视觉化的Basic 脚本。

该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA)，实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中，即具备了VBA的宏功能。

用途

由于微软Office软件的普及，人们常见的办公软件Office软件中的Word、Excel、Access、Powerpoint都可以利用VBA使这些软件的应用更高效率，例如:通过一段VBA代码，可以实现画面的切换;可以VBA6实现复杂逻辑的统计(比如从多个表中，自动生成按合同号来跟踪生产量、入库量、销售量、库存量的统计清单)等。

Answer 2

rng = Range(Cells(2, 1), Cells(2, 13)).Offset(j - 1, 0)
改
SET rng = Range(Cells(2, 1), Cells(2, 13)).Offset(j - 1, 0)

Answer 3

With Selection.Interior
.Color = 65535 '单元格底纹的颜色或图形对象的填充
End With

这里错了吧，Selection.Interior 这个前面要加上rng 吧