使用vba修剪值时键入不匹配(错误13)

布雷特·罗素

我有另一家公司的数据报告。我需要使用的字段之一在每行中有大约30个额外的尾随空格(我不知道为什么)。我只需要处理某些列,所以我要做的是一次从一列中选择数据,然后按照适合我的分析的顺序将其放入新表中。我不为此使用复制粘贴worksheets("A").range("...").value = worksheets("B").range("...").value这可以抓住我想要的列并将它们按我想要的顺序放置。重新组织后,我尝试使用此方法来修剪列中的单元格:

    Worksheets("B").Range("F2:F" & rw).Value = Trim(Worksheets("B").Range("F2:F" & rw).Value)

我曾尝试根据Google搜索来调整此行,但是每次我在这里遇到类型不匹配(错误13)时,都会遇到这种情况。rw是我为数据所驻留的行数设置的变量。我在做什么错?

编辑

我添加了一个循环:

myArr = Worksheets("B").Range("F2:F" & rw).Value
For i = LBound(myArr) To UBound(myArr)
    myArr(i, 1) = Trim(myArr(i, 1))
Next i
Worksheets("B").Range("F2:F" & rw).Value = myArr

它满足了我现在想要的。

保罗4

类型不匹配(错误13)的原因是因为Trim()仅适用于字符串,但是您正在尝试修剪数组。

解:

  1. 如果要将字符串分配给单个单元格,则:

    一种。连接所需的字符串变量,然后

    b。Trim()字符串,并将其分配给您的单元格

  2. 否则,如果要将一组字符串从一个范围复制到另一个范围,则

    一种。按照BigBen的建议进行操作,并使用循环

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

在设置数组值时键入不匹配13错误13

MS Access VBA:出现错误“ 13”:从其他形式调用函数时,键入不匹配

从合并单元格中删除时键入不匹配 13 错误 - VBA

Excel-选择多个单元格时在VBA中键入不匹配错误13

运行时错误'13:比较日期时键入不匹配-EXCEL VBA

将值导入数组时键入不匹配错误

使用 range.find 时键入不匹配错误

循环数组时键入不匹配错误

得到运行时错误“ 13”:运行以下宏时键入不匹配

运行时错误'13':清除单元格内容时键入不匹配

运行时错误13:每次我运行代码时都键入不匹配

运行时错误13:尝试从另一个工作簿中调用函数时,在VBA中键入不匹配

使用拆分 VBA 键入不匹配

运行时错误 13:使用 DateSerial 在日期上键入不匹配

VBA Excel“错误13:类型不匹配”

在VBA中键入不匹配错误,错误在哪里

错误 13:在类似 vba 语句起作用的用户窗体上为文本框键入不匹配

运行时错误 13 - 尝试编辑 Lotus Notes 的富文本项时键入不匹配

使用mmult时VBA中的类型不匹配错误

在 Kotlin 列表中使用泛型时键入不匹配错误

VBA调试打印ParamArray错误13类型不匹配值

使用 Pandas 转换时的值错误不匹配

在某些值之间运行IF函数时,VBA类型不匹配/运行时错误为'13'-为什么会发生这种情况?试图隐藏空的行

在excel vba中为特定范围设置自定义数字格式时键入不匹配错误

使用VBA脚本将2个时间变量分配给2个单元格中的时间值会引发类型不匹配错误13

VBA错误13类型不匹配

Excel VBA运行时错误类型不匹配13

继承上的 VBA 类型不匹配(错误 13),用户来自

Excel VBA运行时错误“ 13”:类型不匹配