VBA-具有If功能的串联细胞

Question

我有一个代码可以返回查询中我想要的所有数据。 问题是csv格式会分隔数据，即使是其中包含逗号的帐户名也是如此。 对于每一行，列A是帐户名，后跟11个整数数据块（每行总共使用12个单元格）。 幸运的是，对于具有逗号的帐户，结果仅是一个额外的单元格（每行总共使用了13个单元格）。

我需要一个IF-THEN公式，如果该行中有13个用过的单元格，它将连接A列和B列，否则就不用管它了。 刚接触VBA会给我带来很多问题。

有什么建议么？ 提前致谢。

Answer 1

好吧，从术语的角度来看，Excel公式和Excel VBA并不是同一件事。

实际上，这里的很多人都是配方专家，对VBA一无所知，反之亦然。

话虽这么说，您可以使用类似：

=IF(COUNTBLANK(C1:N1)=0,A1&" "&B1,A1)

当然，假设您的数据如下所示：

使用起来会更容易：

=IF(N1="",A1,A1&" "&B1)

在Excel公式和VBA中进行串联非常简单。

简单地分开，你希望与amperstand来连接字符串&

如果要串联A1和B1，可以使用=A1&B1 ，如公式所示。

如果要添加空格，甚至是一个单词，我都可以将它们作为字符串添加在它们之间：

=A1&" is way cooler than "&B1

编辑：

VBA：

Sub ConcatenateCells()
Application.ScreenUpdating = False
Dim FixRange As Range, c As Range
Set FixRange = Range("A1:A" & ActiveSheet.UsedRange.Rows.Count)
For Each c In FixRange
    If InStr(c, ",") > 0 Then c = c & c.Offset(0, 1)
    'You could also add a space between the two using c = c & " " & c.Offset(0, 1)
Next c
Application.ScreenUpdating = True
End Sub

我不知道在连接值之后是否要遍历数据，但是如果这样做，则可以使用以下方法：

Sub ConcatenateAndScootCells()
Dim FixRange As Range, c As Range
Set FixRange = Range("A1:A" & ActiveSheet.UsedRange.Rows.Count)
For Each c In FixRange
    If InStr(c, ",") > 0 Then
        c = c & c.Offset(0, 1)
        c.Offset(0, 1).Delete xlToLeft
    End If
Next c
End Sub

仍然假设我的数据格式正确，这是之前和之后的样子：

最终编辑：

如果您绝对要计数使用的行数，而不是简单地在A列中查找逗号，请使用以下方法：

Sub ConcatenateAndScootCells()
Dim FixRange As Range, c As Range
Set FixRange = Range("A1:A" & ActiveSheet.UsedRange.Rows.Count)
For Each c In FixRange
    If Cells(c.row, Columns.Count).End(xlToLeft).Column = 13 Then
        c = c & " " & c.Offset(0, 1)
        c.Offset(0, 1).Delete xlToLeft
    End If
Next c
End Sub