单元格对象的引用问题

sixgod_ness · 发表于 2020-3-4 14:30

本帖最后由 sixgod_ness 于 2020-3-5 11:24 编辑

大家好，我遇到一个奇怪的问题。

我发现range 对象不能使用两个变量代表行和列，于是我使用单元格对象，但是后来发现单元格对象不能对自己进行迭代？显示错误“类型不匹配”！！！

这是我以下的函数。

Sub y()

Dim i, x As Integer
For x = 1 To 40 'column
For i = 15 To Range("a65536").End(xlUp).Row
         If InStr(Cells(i, x), "-") Then

            Cells(i, x).Replace What:="-", Replacement:=""

            Cells(i, x) = Cells(i, x) * -1 ‘这里出现问题“，类型不匹配

         End If

Next
Next

End Sub

mzbao · 发表于 2020-3-4 14:44

Cells(i, x) = Cells(i, x).value * -1

sixgod_ness · 发表于 2020-3-4 18:37

mzbao 发表于 2020-3-4 14:44
Cells(i, x) = Cells(i, x).value * -1

你好，我试过，还是类型不匹配

micch · 发表于 2020-3-4 18:57

加个变量进行计算，然后变量的值赋给单元格

zzj198237 · 发表于 2020-3-4 22:09

Cells(i, x).Replace What:="-", Replacement:="" 你这一句全部干掉了

用 find 和findnext

sixgod_ness · 发表于 2020-3-5 09:45

zzj198237 发表于 2020-3-4 22:09
Cells(i, x).Replace What:="-", Replacement:="" 你这一句全部干掉了

用 find 和findnext

大佬，我该怎么使用？有code吗

shenjianrong163 · 发表于 2020-3-5 09:51

sixgod_ness 发表于 2020-3-5 09:45
大佬，我该怎么使用？有code吗

发个附件上来。

sixgod_ness · 发表于 2020-3-5 11:12

shenjianrong163 发表于 2020-3-5 09:51
发个附件上来。

谢谢回复，已发附件！

yaozong · 发表于 2020-3-5 16:58

sixgod_ness 发表于 2020-3-5 11:12
谢谢回复，已发附件！

Sub yz()
Dim i, x As Integer
For x = 1 To 40 'column
For i = 15 To Range("a65536").End(xlUp).Row
If InStr(Cells(i, x), Chr(45)) Then
Cells(i, x).Replace What:=Chr(45), Replacement:=""
'Cells(i, x) = Cells(i, x) * -1 '这里出现问题“，类型不匹配
End If
Next
Next
End Sub

复制代码

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

[求助] 单元格对象的引用问题

最新热点 /1