请高手帮忙修改一下代码使粘贴过来的数据是以数值方式粘贴

xpmiemiezhou

以下表明颜色的地方请高手帮忙修改一下，谢谢！

Sub CopyDataFromMultipleSheets()
    Dim SourceSheet As Worksheet
    Dim TargetSheet As Worksheet
    Dim LastRow As Long
    Dim i As Long

    ' 设置目标工作表
    Set TargetSheet = ThisWorkbook.Sheets("合并")
    ' 清除目标工作表中已有的数据
    TargetSheet.Cells.Clear
    ' 添加表头（如果需要）
    TargetSheet.Range("A1:C1").Value = Array("列A", "列B", "列C") ' 这里帮忙修改单元格格式为上下居中！

    ' 循环遍历所有工作表，假设所有工作表的格式相同，且数据从A列开始
    For i = 1 To ThisWorkbook.Sheets.Count
        Set SourceSheet = ThisWorkbook.Sheets(i)
        ' 跳过"汇总"工作表
   If SourceSheet.Name <> "合并" And SourceSheet.Name <> "销售部" Then
            ' 找到源工作表的最后一行有数据的行号
            LastRow = SourceSheet.Cells(SourceSheet.Rows.Count, "A").End(xlUp).Row
            ' 假设你要复制的范围是A列到M列的数据
            SourceSheet.Range("A3:P" & LastRow).Copy Destination:=TargetSheet.Cells(TargetSheet.Rows.Count, "A").End(xlUp).Offset(1) '这里粘贴过来帮忙改成选择性粘贴为数值格式。
        End If
    Next i
    ' 提示用户数据已复制完成
    MsgBox "所有工作表内容已复制到目标表格中!", vbInformation
End Sub

taller

xpmiemiezhou

taller 发表于 2024-9-28 04:29

谢谢！如果从合并表的A3列开始粘贴呢？怎么改？

taller

xpmiemiezhou 发表于 2024-9-28 07:22
谢谢！如果从合并表的A3列开始粘贴呢？怎么改？

A3列 - 是什么？

xpmiemiezhou

taller 发表于 2024-9-28 09:41
A3列 - 是什么？

就是每次用这个代码时它都会从合并表的第二行开始粘贴，我想从第三行开始粘贴，第二行我要添加合计函数的

taller

Offset(1) 改为 Offset(2)

xpmiemiezhou

taller 发表于 2024-9-29 02:17
Offset(1) 改为 Offset(2)

十分感谢！！