[已解决]各位大仙儿帮帮忙啊，数据粘贴的问题

fangbingtang

这个是复制其他表格的数据之后，我不会粘贴的小问题，希望有会的大仙儿指导一下，谢谢……我用这个出现的问题是二百多个表格的数据没有办法粘贴，现在的结果是只有粘贴后只有一行数据。

Sub Button2_Click()
Dim se As Worksheet
For Each se In Worksheets
   If se.Name <> "数据提取" Then
        With se
         .Range("I1:K1").Copy
       End With
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End If
Next
End Sub

最佳答案

月排行榜 / 总排行榜

grf1973

2017-3-5 10:28

弄反了吧，应该是这样吧。
Sub Button2_Click()
Dim se As Worksheet
Selection.Copy
For Each se In Worksheets
   If se.Name <> "数据提取" Then
   se.Range("I1:K1").PasteSpecial Paste:=xlPasteValues
    End If
Next
End Sub

跳转到最佳答案楼层

fangbingtang

grf1973

弄反了吧，应该是这样吧。
Sub Button2_Click()
Dim se As Worksheet
Selection.Copy
For Each se In Worksheets
   If se.Name <> "数据提取" Then
   se.Range("I1:K1").PasteSpecial Paste:=xlPasteValues
    End If
Next
End Sub

砂海

Selection.PasteSpecial Paste:=
你在一个位置反复粘贴,当然前面的被覆盖了
====================
i=2  根据实际行

Range("a" & i).PasteSpecial Paste:=....   ' a 根据实际列
i=i+ 1

fangbingtang

哎呦，谢谢各位了，问题解决了

fangbingtang

ActiveCell.Offset(rowOffset:=1).Activate我用的好像是一个笨方法