Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2566|回复: 6

[已解决]运行vba语句后提示:错误的参数号

[复制链接]
发表于 2013-11-14 10:02 | 显示全部楼层 |阅读模式
错误的参数号.zip (14.43 KB, 下载次数: 3)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-11-14 10:12 | 显示全部楼层
为什么不把这一句:With Range("b2:b" & iRow, "c2:c" & iRow, "d2:d" & iRow)
改为:With Range("b2:d" & iRow)

点评

哎,忘了最基本的,应该这样!  发表于 2013-11-14 10:16
回复

使用道具 举报

发表于 2013-11-14 10:13 | 显示全部楼层    本楼为最佳答案   
返回一个 Range 对象,它代表一个单元格或单元格区域。
语法
表达式.Range(Cell1, Cell2)


区域可以表示为Range(左上角区域, 右下角区域),即最多只能是两个参数,不可以更多。





Sub 清除b及c和d列中空白区域及括弧转换()
    Dim r, i, j
    r = Range("A" & Rows.Count).End(xlUp).Row
'    With Range("b2:b" & iRow, "c2:c" & iRow, "d2:d" & iRow)
'        .Replace "(", "("
'        .Replace ")", ")"
'        .Replace "~*", "×"
'        .Replace " ", ""
'    End With
    For i = 2 To r
        For j = 2 To 4
            With Cells(i, j)
                .Replace "(", "("
                .Replace ")", ")"
                .Replace "~*", "×"
                .Replace " ", ""
            End With
        Next j
    Next
End Sub
回复

使用道具 举报

 楼主| 发表于 2013-11-14 10:56 | 显示全部楼层
大灰狼1976 发表于 2013-11-14 10:12
为什么不把这一句:With Range("b2:b" & iRow, "c2:c" & iRow, "d2:d" & iRow)
改为:With Range("b2:d" & ...

只想针对b\c\d三列数据操作

点评

2楼方法可以啊  发表于 2013-11-14 10:57
回复

使用道具 举报

 楼主| 发表于 2013-11-14 13:59 | 显示全部楼层
爱疯 发表于 2013-11-14 10:13
返回一个 Range 对象,它代表一个单元格或单元格区域。
语法
表达式.Range(Cell1, Cell2)
大灰狼1976 发表于 2013-11-14 10:12
为什么不把这一句:With Range("b2:b" & iRow, "c2:c" & iRow, "d2:d" & iRow)
改为:With Range("b2:d" & ...

只想针对b\c\d三列数据操作
点评
爱疯  2楼方法可以啊  发表于 2013-11-14 10:57

不好意思,碰巧了,bcd三列是相连的,如果是bce呢,能否实现呢?


回复

使用道具 举报

发表于 2013-11-14 14:44 | 显示全部楼层
如果不连续区域多于2个,那就采用别的方式。

表达式单元格区域的方法有很多,总有一种适合的
回复

使用道具 举报

 楼主| 发表于 2013-11-22 08:57 | 显示全部楼层
爱疯 发表于 2013-11-14 14:44
如果不连续区域多于2个,那就采用别的方式。

表达式单元格区域的方法有很多,总有一种适合的

我又试了试。谢谢您。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-19 15:25 , Processed in 0.554983 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表