仅将其简化为一个句子

Question

如何在vba中将其简化为一个句子？

 If [BT12] = "a" Then
   Range("AB12").ClearContents
 End If

 If [BT13] = "a" Then
   Range("AB13").ClearContents
 End If

 If [BT14] = "a" Then
   Range("AB14").ClearContents
 End If

Answer 1

这是一行：

[AB12:AB14] = [IF(BT12:BT14 = "a","",AB12:AB14)]

---

这是另一个使用UNION：

Union(IIf([BT12] = "a", [AB12], [AFD1040000]), IIf([BT13] = "a", [AB13], [AFD1040000]), IIf([BT14] = "a", [AB14], [AFD1040000])).ClearContents

第一个创建值的数组，""或单元格中的值。它非常简洁，可以轻松扩展到包括更大的范围。缺点是如果AB中的数据由公式填充，则公式将被值替换，公式将被删除。

第二个只清除那些需要清除的东西，而其他的不变，但是用较大的范围不容易编辑。

Answer 2

这是不好的做法，不推荐，但是是单线。预计这将包含在包含父表引用的With语句中。

Dim  i As Long: For i = 12 To 14: If .Cells(i, 72).Value = Chr$(97) Then .Cells(i, 28).ClearContents: Next

Answer 3

这是你的一句话代码：

If Not [BT12:BT14].Find("a", , xlValues, xlWhole) Is Nothing Then Range(IIf([BT12] = "a", IIf([BT13] = "a", IIf([BT14] = "a", "AB12:AB14", "AB12:AB13"), IIf([BT14] = "a", "AB12,AB14", "AB12")), IIf([BT13] = "a", IIf([BT14] = "a", "AB13:AB14", "AB13"), IIf([BT14] = "a", "AB14", "")))).ClearContents

您可以（可能）更舒适地阅读：

    If Not [BT12:BT14].Find("a", , xlValues, xlWhole) Is Nothing Then Range( _
           IIf([BT12] = "a", _
                             IIf([BT13] = "a", _
                                               IIf([BT14] = "a", "AB12:AB14", "AB12:AB13"), _
                                               IIf([BT14] = "a", "AB12,AB14", "AB12") _
                                 ), _
                             IIf([BT13] = "a", _
                                               IIf([BT14] = "a", "AB13:AB14", "AB13"), _
                                               IIf([BT14] = "a", "AB14", "") _
                                 ) _
              ) _
          ).ClearContents

Answer 4

是的，可以做到:-)

只是为了好玩：假设你在[AB11]中提供了一个►空单元格，你可以通过Application.Index函数使用这个单元格：

[AB11:AB14] = Application.Transpose(Application.Index([AB11:AB14], Array(1, IIf([BT12] = "a", 1, 2), IIf([BT13] = "a", 1, 3), IIf([BT14] = "a", 1, 4)), 1))

（编辑thx DisplayName :)

放大对Index函数的评论

你可以在Index找到使用Insert first column in array without Loops or API calls函数的放大评论

Answer 5

满足你的要求;无论您是使用IIF还是True条款进行评估，False函数都能正常工作。试试这个衬垫。

For Each cel In Range("BT12:BT14"): IIf cel = "a", cel.Offset(, -44).ClearContents, True: Next

Answer 6

如何在vba中将其简化为一个句子？

你应该？您的示例代码简洁易读。正如Rawrplus指出的那样，为了缩短时间更短通常不是一个好主意。

人们可以简化每一行：

If [BT12] = "a" Then Range("AB12").ClearContents
If [BT13] = "a" Then Range("AB13").ClearContents
If [BT14] = "a" Then Range("AB14").ClearContents

那个更好吗？可以说在我看来不行。如果条件的行为需要更复杂，那么无论如何你都将被迫重构。

Answer 7

答案很简单：它不能完成。但是，如果有人想要解决这个问题，可以找到一个解决方案，尽管它相当遥远。

首先创建一个sub来放入库模块。

Sub ClearCellContent(ParamArray Args())
  Dim i As Integer, J As Integer
  i = UBound(Args)
  For J = 0 To i Step 3
    If Args(J).value = Args(J + 1) Then Args(J + 2).ClearContents
  Next
End Sub

从代码中的某个位置，您现在可以像这样调用此子：

ClearCellContent [BT12], "a", [AB12], [BT13], "a", [AB13], [BT14], "a", [AB14]

就像我说的那样，远远不过是一种各样的衬垫。