老师，帮我看看这个命令错在哪里了，应该进行怎样的修改，写类似命令需要注意些什么

chinajike

其实，这就是第二讲中的第二题的变种，当时是要从同一个工作表的某个部位选取一定量的数据复制到其他部位，我想修改一下，从把同一个工作表改写成两个不同工作表之间进行操作，我是这样写的：
Sub 数据()
Dim a, b As Integer
& S) ~& f2 Y' K0 b1 ]Dim Str As String
) T, Z1 q2 U. o$ k, A" Z: ga = Sheets("sheet1").Range("b50").End(xlUp).Row
5 d1 ^: i# z. G  Z: [b = Sheets("基础411").Range("c371").End(xlUp).Row + 1
Sheets("基础411").Select
, O% `  s' ]$ B) |/ D5 c5 ESelection.Range(Cells(b, 3), Cells(a + b - 1, 43)) = Sheets("sheet1").Range(Cells(1, 2), Cells(a, 42)).Value
  |6 g. U: u# ]3 ]8 q* W; tSheets("sheet1").Range(Cells(1, 2), Cells(a, 42)).ClearContents
Str = "录入完毕!"
/ q" o6 M  q2 n& f5 C+ d/ S8 o7 VMsgBox Str, vbOKOnly
运行的时候，每次都提示最长的那一行有问题，但是我不知道问题在哪里，也不知道怎么解决，附件已经上传，希望老师们帮我看看。

5 a2 i& O3 s. t示例及目的：
在sheet1表中，是2月份的数据，
# s) o4 @3 V( ^; \* L! _9 u现在需要做到的是，按动按键，将这部分数据，自动复制到“基础411表”中2月份的位置，然后删除sheet1表中的原数据，在整个操作过程中，保持sheet1为活动页面。
& q6 P5 k" O4 Q( W/ x$ Z我真的没办法了，搞了一整天了，也没搞明白。
* N7 G2 h+ m5 k! ~- ?

rxj_0414

, r: h. o! M" @9 W! g7 J不同的工作表中不能直接使用区域赋值。试试这个吧。
Sub 数据()
    Dim a, b As Integer
/ q+ z" H  t- [    Dim Str As String
    Dim arr
5 [5 n; i7 A4 }) I7 L9 o; O    a = Sheets("Sheet1").Range("B65536").End(xlUp).Row
, x; v3 u6 P; t, K+ f% M' Y+ ^    b = Sheets("基础411").Range("C5").End(xlDown).Row + 1
* ]  g" H# G2 o. j7 f- g6 `& T    Sheets("Sheet1").Select
8 f# c, h. g* M' c, ^    Sheets("Sheet1").Range(Cells(1, 2), Cells(a, 42)).Copy Sheets("基础411").Range(Cells(b, 3), Cells(a + b - 1, 43))   
    Sheets("Sheet1").Select
0 j9 f2 L# G; B    Sheets("Sheet1").Range(Cells(1, 2), Cells(a, 42)).ClearContents
   
    Str = "录入完毕!"
! x9 X# p9 f; D. m# X& y: X    MsgBox Str, vbOKOnly
End Sub
8 `, R' @$ l5 b( N4 m# K

chinajike

回复 rxj_0414 的帖子

1 t" x% |" P, @9 {9 H$ S还是这一条执行不下去啊。
Sheets("Sheet1").Range(Cells(1, 2), Cells(a, 42)).Copy Sheets("基础411").Range(Cells(b, 3), Cells(a + b - 1, 43))   

rxj_0414

Sub 数据()
    Dim a, b As Integer
    Dim Str As String
, H, f& m+ T; a. w% W5 |    Dim arr
- D) H$ B1 ]! Q) z- P9 V    a = Sheets("Sheet1").Range("B65536").End(xlUp).Row
    b = Sheets("基础411").Range("C5").End(xlDown).Row + 1
    Sheets("Sheet1").Select
    Sheets("Sheet1").Range(Cells(1, 2), Cells(a, 42)).Copy
    Sheets("基础411").Select
    Sheets("基础411").Range(Cells(b, 3), Cells(a + b - 1, 43)).paste   
    Sheets("Sheet1").Select
    Sheets("Sheet1").Range(Cells(1, 2), Cells(a, 42)).ClearContents
   
2 I4 d0 R( X* g! t  E    Str = "录入完毕!"
    MsgBox Str, vbOKOnly
End Sub


' j; J6 T. ?/ e% t0 c# j! W

zzbilly

是不是用宏录制一下 再稍做修改呢?