对象变量或with块变量为设置 Sub copyRange() Dim ws As Worksheet Dim lastCol As Long Dim todayDate As Date '声明一个新变量,避免与内置函数Today()冲突 Dim copyRange As Range '声明一个新变量,存储需要复制的范围 '获取当前日期 todayDate = Date '指定工作表 Set ws = ThisWorkbook.Worksheets("中转场地效益看板") '指定查照日期的范围 '指定查找范围为第7行至第7行的最后一列 Set searchRange = ws.Range("G7", ws.Cells(7, ws.Columns.Count)) '查找今天日期所在的列号,如果不存在则给出提示并退出 If searchRange.Find(What:=todayDate, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then MsgBox "今天的日期没有找到!" Exit Sub Else lastCol = searchRange.Find(What:=todayDate, LookIn:=xlValues, LookAt:=xlWhole).Column End If '复制第一列至今天日期所在的那一列的下一列,第2行至第372行 Set copyRange = ws.Range(ws.Cells(2, "A"), ws.Cells(372, lastCol + 1)) copyRange.Copy '弹出提示框 MsgBox "复制成功!" End Sub
时间: 2024-03-25 13:37:56 浏览: 20
这个错误通常是因为没有正确设置对象变量或 `With` 块变量。在这段代码中,错误可能是因为没有正确设置 `searchRange` 变量。
你可以尝试将 `searchRange` 的定义前面添加 `Dim` 关键字,以确保它是一个新的变量。另外,你还需要为 `searchRange` 变量赋值,以指定查找范围。具体来说,你可以将其定义为以下代码:
```vba
Dim searchRange As Range
Set searchRange = ws.Range("G7", ws.Cells(7, ws.Columns.Count))
```
这样,就可以避免出现“对象变量或 With 块变量未设置”错误。完整修改后的代码如下:
```vba
Sub copyRange()
Dim ws As Worksheet
Dim lastCol As Long
Dim todayDate As Date '声明一个新变量,避免与内置函数 Today() 冲突
Dim copyRange As Range '声明一个新变量,存储需要复制的范围
Dim searchRange As Range '声明一个新变量,存储查找范围
'获取当前日期
todayDate = Date
'指定工作表
Set ws = ThisWorkbook.Worksheets("中转场地效益看板")
'指定查找范围为第7行至第7行的最后一列
Set searchRange = ws.Range("G7", ws.Cells(7, ws.Columns.Count))
'查找今天日期所在的列号,如果不存在则给出提示并退出
If searchRange.Find(What:=todayDate, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
MsgBox "今天的日期没有找到!"
Exit Sub
Else
lastCol = searchRange.Find(What:=todayDate, LookIn:=xlValues, LookAt:=xlWhole).Column
End If
'复制第一列至今天日期所在的那一列的下一列,第2行至第372行
Set copyRange = ws.Range(ws.Cells(2, "A"), ws.Cells(372, lastCol + 1))
copyRange.Copy
'弹出提示框
MsgBox "复制成功!"
End Sub
```
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)