如何在同一细胞

我有一个小小的建议，因为我是新来的Excel VBA中插入新行，如何在同一细胞

我想更新特定小区的一些字符串（J，8），其中T是字符串被更新，t从1到10不等。

我喜欢更新吨价在特定的细胞“ALT进入”

如果电池已经充满，我想补充新线

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）早已值细胞（5,8- ）=“已经是一个字符串”

我怎么能在同一细胞暗淡不要再增加一个新的行字符串 T =“新行添加”

我怎样才能到下一行添加吨价细胞（5,8）

来源

2016-04-15 user2965711

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

要添加到文本已经在电池中使用，你可以做这样的 bsmWS.Cells（J，8）.value的= bsmWS.Cells（J，8）.value的& vbNewLine &牛逼

来源

2016-04-15 12:26:22

其覆盖单元格中旧的可读字符串 – user2965711

这将采用当前单元格中的值，添加一个新行，然后添加字符串t - bsmWS.Cells（j，8）.value = bsmWS.Cells（j，8）。值＆vbNewLine＆t –

这是我搜索的 – user2965711

如何在同一细胞

回答

相关问题