Question

将数据输入单元格时，我想从另一个单元格中获取字符串，并将两者连接起来。当单元格为空时，不会发生这种情况。问题是我的If语句查找非空单元格并连接字符串。这对于第一个文本输入很好，但是在它连接两个字符串之后，单元格不再是空白并且循环继续，不断地将相同的字符串附加到不断增长的串联。如何连接一次后如何使循环停止？

If Sheets(1).Range("AC5").Value <> "" Then
    Sheets(1).Range("AC5").Value = Sheets(1).Range("k5").Value & " - " & Sheets(1).Range("AC5").Value

Else: Sheets(1).Range("AC5").Value = ""
End If

Answer 1

您可以使用InStr检查标头单元格是否已连接：

If InStr(Sheets(1).Range("AC5").Value, Sheets(1).Range("k5").Value) = 1 Then
 ....

在输入文本时连接两个单元格的字符串，然后关闭循环

1 个答案: