如何在同一个单元格中插入新行
我有一个小的build议，因为我是新的Excel VBA，
我喜欢更新特定单元格（j，8）中的某个string，其中t是要更新的string，t从1到10不等。
我喜欢更新特定单元格中“alt enter”的t值
如果单元格已经填满，我喜欢添加新行
destlastrow = bsmWS.Range("A" & bsmWS.Rows.Count).End(xlUp).Row 'Checking the BSM/CMS/LDP/RCTA (Test Catalog) For j = 2 To destlastrow b = onlyDigits(bsmWS.Range("A" & j).value) If InStr(b, "T") Or InStr(b, "") = 0 Then ' Check if it Test case or Test case ID ' do something ElseIf InStr(b, "T") Or InStr(b, "D") Then 'do something ElseIf InStr(b, "P") Or InStr(b, "D") Then 'do something Else iComp = StrComp(A, b, vbBinaryCompare) Select Case iComp Case 0 With tabWS Inc value erow = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Row .Range(.Cells(i, 2), .Cells(i, 3)).Copy .Range(.Cells(value, 8), .Cells(value, 9)) tabWS.Range("B" & i).Interior.ColorIndex = 4 End With 'tabWS End Select t = tabWS.Cells(value, 8).value bsmWS.Cells(j, 8).value = t & vbCrLf Exit For End If Next j 以上是我的片段。 我想更新从另一个工作表得到它的“t”值，想要更新到另一个工作表（j，8）。
有人可以提出一个有价值的build议，如何在（j，8）中添加新的行
更清晰：
如果单元格（5,8）已经有一个值单元格（5,8）=“已经是一个string”
我怎么能添加一个新的行在相同的单元格昏暗stringt =“新行添加”
如何在下一行添加t值（5,8）
为了得到一个新的行，你可以使用vbNewLine而不是vbCrLf。
要添加到单元格中已有的文本中，您可以像这样做：bsmWS.Cells（j，8）.value = bsmWS.Cells（j，8）.value＆vbNewLine＆t