|
Sub 数据()5 s* `: c0 U9 Y9 s) D1 T
Dim a, b As Integer
; q1 y9 j( A. m+ z. u& w- M3 P, v( ? Dim Str As String, F4 ]7 W6 Y4 x5 c4 c
Dim arr2 e' {/ F# C8 A6 p+ a7 c2 G
a = Sheets("Sheet1").Range("B65536").End(xlUp).Row
. v3 g) s; Q5 Y6 t b = Sheets("基础411").Range("C5").End(xlDown).Row + 1
" |1 k, o U/ E Sheets("Sheet1").Select
5 t6 C6 U9 [9 \ Sheets("Sheet1").Range(Cells(1, 2), Cells(a, 42)).Copy$ A& w6 m8 W. _4 @' Q. C
Sheets("基础411").Select
7 V. I4 h" |, O2 J Sheets("基础411").Range(Cells(b, 3), Cells(a + b - 1, 43)).paste - p# \ q( O2 f# c
Sheets("Sheet1").Select
% s9 ^9 @8 G$ G5 n. J. A. u Sheets("Sheet1").Range(Cells(1, 2), Cells(a, 42)).ClearContents
8 r. c) Y% L" z a m
2 P9 I B5 l$ E' } R, s Str = "录入完毕!"
" t y5 z `; t# S9 X' j MsgBox Str, vbOKOnly
7 ?- b2 _3 d* \' A: o/ J, NEnd Sub
: V' X/ W9 O4 a8 J: M/ o' e8 D' ~4 ^( d: [+ f
, F7 A5 D8 q1 ?- K' |: ?' I8 H; R |
|