[已解决]请教这句代码如何修改

fzr

以下这句代码是将多个表的数据复制到一个表中，但在复制数据的同时，也将公式一起复制过来了，我只要数据，不要公式，请帮忙改一下。谢谢！
Sheets(sht).Range("a5:Q" & endrw3).Copy Sheets(1).Cells(endrw2 + 1, 1)

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-27 00:59

1. Sub 数据更新()
   
2.     Dim sht As Integer    '声明一个数值型变量sht，用于代表表位置
   
3.     Dim endrw1 As Integer    '声明一个数值型变量endrw1，用于代表活动表的数据行数
   
4.     Dim endrw2 As Integer    '声明一个数值型变量endrw2，用于代表接收数据的表的数据行数
   
5.     For sht = 2 To 9    '从第2个表开始执行以下操作至第9个表结束
   
6.         endrw1 = Sheets(sht).Range("a65536").End(xlUp).Row    '返回位置为sht的工作表的数据行数'
   
7.         endrw2 = Sheets(1).Range("a65536").End(xlUp).Row    '返回接收数据的表（位置为1）的数据行数'
   
8.         If endrw1 > 4 Then
   
9.             endrw3 = endrw1
   
10.         Else
    
11.             endrw3 = 5
    
12.         End If
    
13.         Sheets(sht).Range("a5:Q" & endrw3).Copy
    
14.         Sheets(1).Cells(endrw2 + 1, 1).PasteSpecial xlPasteValues
    
15.         Application.CutCopyMode = False
    
16.         '选定sht表的A5:Qenerw1区域，并把选定区域的数据复制到接收数据的表（位置为1）的数据之后的第一个空行中'
    
17.     Next sht
    
18. End Sub
    

复制代码

跳转到最佳答案楼层

fzr

完整的代码是：
Sub 数据更新()
Dim sht As Integer '声明一个数值型变量sht，用于代表表位置
Dim endrw1 As Integer '声明一个数值型变量endrw1，用于代表活动表的数据行数
Dim endrw2 As Integer '声明一个数值型变量endrw2，用于代表接收数据的表的数据行数
For sht = 2 To 9 '从第2个表开始执行以下操作至第9个表结束
endrw1 = Sheets(sht).Range("a65536").End(xlUp).Row '返回位置为sht的工作表的数据行数'
endrw2 = Sheets(1).Range("a65536").End(xlUp).Row '返回接收数据的表（位置为1）的数据行数'
If endrw1 > 4 Then
endrw3 = endrw1
Else
endrw3 = 5
End If
Sheets(sht).Range("a5:Q" & endrw3).Copy Sheets(1).Cells(endrw2 + 1, 1)
'选定sht表的A5:Qenerw1区域，并把选定区域的数据复制到接收数据的表（位置为1）的数据之后的第一个空行中'
Next sht
End Sub

hwc2ycy

1. Sub 数据更新()
   
2.     Dim sht As Integer    '声明一个数值型变量sht，用于代表表位置
   
3.     Dim endrw1 As Integer    '声明一个数值型变量endrw1，用于代表活动表的数据行数
   
4.     Dim endrw2 As Integer    '声明一个数值型变量endrw2，用于代表接收数据的表的数据行数
   
5.     For sht = 2 To 9    '从第2个表开始执行以下操作至第9个表结束
   
6.         endrw1 = Sheets(sht).Range("a65536").End(xlUp).Row    '返回位置为sht的工作表的数据行数'
   
7.         endrw2 = Sheets(1).Range("a65536").End(xlUp).Row    '返回接收数据的表（位置为1）的数据行数'
   
8.         If endrw1 > 4 Then
   
9.             endrw3 = endrw1
   
10.         Else
    
11.             endrw3 = 5
    
12.         End If
    
13.         Sheets(sht).Range("a5:Q" & endrw3).Copy
    
14.         Sheets(1).Cells(endrw2 + 1, 1).PasteSpecial xlPasteValues
    
15.         Application.CutCopyMode = False
    
16.         '选定sht表的A5:Qenerw1区域，并把选定区域的数据复制到接收数据的表（位置为1）的数据之后的第一个空行中'
    
17.     Next sht
    
18. End Sub
    

复制代码