excel vba 单元格首尾添加" 如何完成

sheet1.cells(2,1).value="祝你快乐!"，也可以：worksheets("sheet1").range("b1").value="祝你快乐!"，其中sheet是你所在的表格，sheet1是第一张表

比如要从Sheet1表中，

把C3改下的数据（不确定行数），

复制粘贴到Sheet2表中，从A2向下粘贴。

Sub 复制粘贴到表2()

    myname1 = "Sheet1" '在双引号内修改要复制内容的工作表名称

    myname2 = "Sheet2" '在双引号内修改要粘贴内容的工作表名称

    Sheets(myname2).Select '选中表2

    Columns("A:A").ClearContents '清空一下要粘贴的列

    Sheets(myname1).Select '选中表1

    r = Range("C" & Rows.Count).End(3).Row '提取C列的最末数据的行号

    Range("C3:C" & r).Copy '复制C3至Cr区域

    Sheets(myname2).Select '选中表2

    Range("A2").PasteSpecial '粘贴目标A2

    Sheets(myname1).Select '选中表1

    Application.CutCopyMode = False '取消复制状态的蚂蚁线

End Sub

复制到 表1

Sub AA()

Dim I

X = Range("A65536").End(xlUp).Row

If X <13 Then

[AA1] = Sheets("表2").[A24]

N = WorksheetFunction.Match([AA1], Sheets("表2").Range("A:A"), 0)

End If

For I = N + 1 To Sheets("表2").Range("A65536").End(xlUp).Row

If Sheets("表2").Cells(I, "b") = "在职" Then

[B13] = Sheets("表2").Cells(I, "a")

[C13] = Sheets("表2").Cells(I, "B")

Exit For

End If

Next

End Sub

---