如何在单元格中附加已存在文本的文本？ [英] How to append text with already existing text in the cell?

问题描述

我试图用单元格中已经存在的文本附加文本。但是我的下面的代码正在替换text.please帮助我在vba中我是新的。我该怎么做才能附加文本，我应该使用哪个命令？



我的尝试：

  Sub  micro1（）
 
 lr = ThisWorkbook.Worksheets（  sheet3）。Cells（Rows.Count，  A ）。结束（xlUp）。
   i =  2    lr 
a = ThisWorkbook.Worksheets（  sheet3）。单元格（ 2 ， 1 ）
a = a +  3  
 ThisWorkbook.Worksheet s（a）.Activate 
 lr1 = ThisWorkbook.Worksheets（a）.Cells（Rows.Count，  B）。结束（xlUp）。
   j = < span class =code-digit> 2  要 lr1 
 nm = ThisWorkbook.Worksheets（ 4 ）。单元格（j， 2 ）
 如果 nm =   General Ward 然后 
 ThisWorkbook .Worksheets（ 3 ）。单元格（ 2 ， 6 ).Value = ThisWorkbook.Worksheets（ 4 ）。Cells（j， 3 ）。 
 结束 如果 
 下一步 
 下一步 
 结束  Sub  

解决方案

将数据分配给单元格时，您需要读取旧数据并将其与新数据一起附加。例如，以下内容会将一些文本附加到单元格A1

 ActiveSheet.Cells（ 1 ， 1 ）。值=  ActiveSheet.Cells（ 1 ， 1 ）。值+   其他数据 

i was trying to append the text with already existing text in cell.but my below code is replacing the text.please help me i am new one in vba.what should i do to append the text,which command i should use?

What I have tried:

Sub micro1()

   lr = ThisWorkbook.Worksheets("sheet3").Cells(Rows.Count, "A").End(xlUp).Row
   For i = 2 To lr
      a = ThisWorkbook.Worksheets("sheet3").Cells(2, 1)
      a = a + 3
      ThisWorkbook.Worksheets(a).Activate
      lr1 = ThisWorkbook.Worksheets(a).Cells(Rows.Count, "B").End(xlUp).Row
      For j = 2 To lr1
         nm = ThisWorkbook.Worksheets(4).Cells(j, 2)
         If nm = "General Ward" Then
            ThisWorkbook.Worksheets(3).Cells(2, 6).Value = ThisWorkbook.Worksheets(4).Cells(j, 3).Value
         End If
      Next
   Next
End Sub

解决方案

When assigning the data to the cell, you need to read the old data and append it along with the new data. For example the following would append some text to cell A1

ActiveSheet.Cells(1, 1).Value = ActiveSheet.Cells(1, 1).Value + " additional data"

这篇关于如何在单元格中附加已存在文本的文本？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！