代码之家 › 专栏 › 技术社区 › karateschnitzel

VBA:如果范围内的值为

trim excel vba

karateschnitzel · 技术社区 · 7 年前

在工作表中,我需要通过修剪功能删除特定单元格范围内不需要的空白。这在以下代码中已经可以正常工作:

Sub remove_blanks()

Dim rC As Range

Application.ScreenUpdating = False

For Each rC In ActiveSheet.Range("C1:C5000")
    If Not (rC.HasFormula) Then rC = Trim(rC)
Next

Application.ScreenUpdating = True

End Sub

现在,我需要实现一个检查,其中只有当一个单元格在另一列中标记为“YES”时,上述函数才能工作。

例如。

谨致问候,

2 回复 | 直到 7 年前

Shai Rado 7 年前

只需修改您的行:

If Not (rC.HasFormula) Then rC = Trim(rC)

If Not (rC.HasFormula) And Range("A" & rC.Row).Value = "YES" Then rC = Trim(rC)

这将检查“A”列中的值是否与 rC

Kostas K. 7 年前

使用的替代方法。抵消

If Not rC.HasFormula And rC.Offset(0, [-2]).Value = "YES" Then rC = Trim(rC)

推荐文章

Kram Kramer · 通过vba自动调整文本大小以适应形状

4 月前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

4 月前

Eric · 我有邮政编码替换问题Excel VBA

4 月前

Chasester · VBA使用嵌套的DIV抓取URL

4 月前

jkp · 特殊字符复选标记

4 月前

Iron Man · 代码插入和复制到错误的工作表

4 月前

NoFafo · 将文本框放入数组进行格式化

4 月前

Smokestack · 过滤器范围C3:G3并粘贴到其他单元格

4 月前

Julie S. · Excel VBA for循环的代码帮助,用于检查多个ListBoxes是否有值?

5 月前

Kram Kramer · 如何通过vba代码将Chart xAxes字体颜色从黑色更改为红色?

5 月前