Range + cells 的用法

Warmer1997 · 发表于 2024-5-21 13:55

大家好，下面这段程序，运行到红色字体的部分时，系统提示这样在错误信息，求帮助，感谢！

Sub Updating()

Dim r, c As Long
Dim p As String

p = InputBox("Please input the period to be updated.")
c = Cells(3, Columns.Count).End(xlToLeft).Column

r = 3

Do While Cells(r, 3) <> ""

      If Cells(r, 3) = Val(p) Then
          Range(Cells(r - 1, 5), Cells(r - 1, c)).Select
         'Range("E" & r1 & ":" & c & r1).Select
         Selection.Copy
         Cells(r, 5).Resize(r, c).Select
         Selection.PasteSpecial Paste:=xlPasteFormulas

      End If

      r = r + 1

Loop

End Sub

shiruiqiang · 发表于 2024-5-21 14:21

Range(Cells(r - 1, 5), Cells(r - 1, "c")).Select 试试

wengjl · 发表于 2024-5-21 14:22

该有一个附件吧

LIUZHU · 发表于 2024-5-21 14:29

建议上福建说明问题，好像是c有点问题

perfect131 · 发表于 2024-5-21 14:55

写法不标准
range可以不要sheet 但 range+cells是 cells必须要 sheet对象
range(activesheet.cells(),activesheet.cells())

with activesheet
.range(.cells(),.cells()).select
end with

Warmer1997 · 发表于 2024-5-21 15:04

是的，谢谢大家，我把c加了个引号，就可以了，感谢！
可是我不明白为什么要给c加引号？

shiruiqiang · 发表于 2024-5-21 15:05

“c”代表c列，c是变量，这里没赋值

Warmer1997 · 发表于 2024-5-21 15:09

那 “c”代表c这个变量赋了值，是这样吗

Warmer1997 · 发表于 2024-5-21 15:10

perfect131 发表于 2024-5-21 14:55
写法不标准
range可以不要sheet 但 range+cells是 cells必须要 sheet对象
range(activesheet.cells(),act ...

噢，原来是这样啊，感谢，又学到了！

his803 · 发表于 2024-5-21 15:13

perfect131 发表于 2024-5-21 14:55
写法不标准
range可以不要sheet 但 range+cells是 cells必须要 sheet对象
range(activesheet.cells(),act ...

的确是这样，以前我也曾经遇到这类问题，后来才发现cell需要加对象

		自动登录	找回密码
密码			免费注册

[求助] Range + cells 的用法