Question

我有一个小建议，因为我是excel vba的新手，

我喜欢更新特定单元格中的某些字符串（j，8），其中t是要更新的字符串，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）。

有人可以提供有价值的建议，如何在（j，8）

中添加新行

更清晰：

如果单元格（5,8）已经有值 cell（5,8）=“已经是一个字符串”

如何在同一单元格中添加新行 dim t as string t =“新行添加”

如何在单元格（5,8）的下一行中添加t值

Answer 1

要获得新行，您可以使用vbNewLine而不是vbCrLf。

要添加到单元格中已有的文本，您可以这样做 bsmWS.Cells（j，8）.value = bsmWS.Cells（j，8）.value＆amp; vbNewLine＆amp; t

如何在同一单元格中插入新行

1 个答案: