如何在同一細胞

我有一個小小的建議，因爲我是新來的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

如何在同一細胞

回答

相關問題