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

chinajike

其实，这就是第二讲中的第二题的变种，当时是要从同一个工作表的某个部位选取一定量的数据复制到其他部位，我想修改一下，从把同一个工作表改写成两个不同工作表之间进行操作，我是这样写的：
Sub 数据()
Dim a, b As Integer
Dim Str As String
a = Sheets("sheet1").Range("b50").End(xlUp).Row
0 m+ Y$ t; i3 u7 W7 F8 Bb = Sheets("基础411").Range("c371").End(xlUp).Row + 1
, {  K* Z7 i, ]' S3 bSheets("基础411").Select
Selection.Range(Cells(b, 3), Cells(a + b - 1, 43)) = Sheets("sheet1").Range(Cells(1, 2), Cells(a, 42)).Value
$ A( y1 [% F* G. X  BSheets("sheet1").Range(Cells(1, 2), Cells(a, 42)).ClearContents
6 x, M% }5 H; `) D( ]4 FStr = "录入完毕!"
  c1 n/ m3 _  S" gMsgBox Str, vbOKOnly
运行的时候，每次都提示最长的那一行有问题，但是我不知道问题在哪里，也不知道怎么解决，附件已经上传，希望老师们帮我看看。

- t  N+ u3 G8 j1 \示例及目的：
在sheet1表中，是2月份的数据，
现在需要做到的是，按动按键，将这部分数据，自动复制到“基础411表”中2月份的位置，然后删除sheet1表中的原数据，在整个操作过程中，保持sheet1为活动页面。
- V2 l' u0 S" U& [5 g( R我真的没办法了，搞了一整天了，也没搞明白。
- Z8 R/ w& z, p" A5 u, ^6 z

rxj_0414

, @- F4 }3 j! t, {# n' m
不同的工作表中不能直接使用区域赋值。试试这个吧。
' u5 r2 M5 U" ]1 d& e5 T8 b. O* o- lSub 数据()
, \* W5 y0 \3 J! C4 V    Dim a, b As Integer
    Dim Str As String
    Dim arr
! S* t. ^$ ]! v    a = Sheets("Sheet1").Range("B65536").End(xlUp).Row
0 v: F, o6 W9 {6 V) \    b = Sheets("基础411").Range("C5").End(xlDown).Row + 1
    Sheets("Sheet1").Select
    Sheets("Sheet1").Range(Cells(1, 2), Cells(a, 42)).Copy Sheets("基础411").Range(Cells(b, 3), Cells(a + b - 1, 43))   
: ~# L: d- [3 B7 W8 W    Sheets("Sheet1").Select
3 {% D5 W! y7 O+ a' @7 H    Sheets("Sheet1").Range(Cells(1, 2), Cells(a, 42)).ClearContents
   
2 d# D; a. l$ q8 S6 p# s    Str = "录入完毕!"
1 @. ^' A  _7 {+ Z    MsgBox Str, vbOKOnly
' A" J- Q1 a2 ZEnd Sub

+ D0 a9 z+ `4 ?7 K  O/ W

chinajike

回复 rxj_0414 的帖子

还是这一条执行不下去啊。
Sheets("Sheet1").Range(Cells(1, 2), Cells(a, 42)).Copy Sheets("基础411").Range(Cells(b, 3), Cells(a + b - 1, 43))   
& \0 {1 Q1 A# Q, {
: E5 B( _$ }1 I8 w' T9 X/ q0 B

rxj_0414

Sub 数据()
2 x+ Y0 M: b, v    Dim a, b As Integer
    Dim Str As String
    Dim arr
/ L6 H# @6 s- {    a = Sheets("Sheet1").Range("B65536").End(xlUp).Row
7 w* H4 h5 [3 x3 ~    b = Sheets("基础411").Range("C5").End(xlDown).Row + 1
    Sheets("Sheet1").Select
; F. R; a6 ^. s    Sheets("Sheet1").Range(Cells(1, 2), Cells(a, 42)).Copy
    Sheets("基础411").Select
* K8 [1 a7 B% V9 i3 _4 b8 w& d    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
3 W( k7 \) Z  E4 [5 W8 g   
- k$ S) I. K# {) f9 }9 N    Str = "录入完毕!"
) o2 W/ P# g; |* O: Q    MsgBox Str, vbOKOnly
8 k4 C9 _( M4 a* _( AEnd Sub
5 m# f6 Y0 _0 b. r; R" W

zzbilly

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