这是代码的一部分。我想显示用户在用户也提到的单元格中输入的值(用逗号分隔的字符串)(使用输入框)。因此,对于第一次执行,我想在用户提到特定范围/单元格时插入一行。然后将用户提到的值插入他们希望插入的确切单元格中。对于下次执行,我希望将值附加到由逗号分隔的同一单元格中。 我从这段代码开始:
Case 14
Dim Rang As String
Terms = InputBox("Please enter words, if more than one string seperate by comma and space", "Need Input", 1)
Rang = InputBox("Please enter cell where you want the terms to be displayed like C2,D2 ", "Need Input", 0, 8)
Range(Rang).EntireRow.Insert
Range(Rang).Value = Terms
.....
例如,当用户提到术语时:转,信号 对于让他们说f2 创建第二行,然后在单元格f2中:转动,显示信号。 对于下次执行,我希望将值附加到以逗号和空格分隔的前一个值。使用当前代码,它每次都创建一个新行并将值添加到新单元格。如果有帮助,我可以要求用户每次都提到相同的单元格值。我想到使用以下代码来附加值。
Range(Rang).Value=Range(Rang).Value & ", " &Terms
如何检查除指定单元格之外的指定行是否为空,这样我就不必插入指定的整行,而是相应地附加值