如何向Cell追加内容？

我用xlsheet.Cells(2, 3)="2"向EXCEL表格写内容，那有没有什么方法向这个Cell里再追加一个“3”呢？

解决方案 »

  1.   

    xlsheet.Cells(2, 3=xlsheet.Cells(2, 3) & "3"
      

  2.   

    可以用inputBox函数输入要追加的内容。
    dim s as string
    s=inputbox("输入内容")
    xlsheet.Cells(2, 3)=xlsheet.Cells(2, 3) & s
      

  3.   

    那如果追加的内容必须重起一行开始写呢，例如原来是Z，现在要追加A，需写成Z
    A这种形式，应该怎么写呢
      

  4.   

    xlsheet.Cells(2, 3)=xlsheet.Cells(2, 3) & vbcrlf & s
      

  5.   

    xlsheet.Cells(2, 3)=xlsheet.Cells(2, 3) & s
      

  6.   

    xlsheet.Cells(2, 3)=xlsheet.Cells(2, 3) & "3"