一张工作表内有很多数据，假如在A1中填写任意单元格，其同列下拉的1000个数据自动复制到B1~B1000。
如果能实现复制两列到BC列更好。比如在A1中输入M60，然后自动将单元格区域M60~M1059及N60~N1059的数据复制到B1~C1000。
补充：如果在A1填入单元格无法实现，也可直接改用鼠标双击选定任意单元格然后完成复制。
不一定要用vba，用函数公式实现也可。
第1个回答 2011-01-11
Sub a()
Range(Range(Range("A1").Text), Range(Range("A1").Text).Offset(999, 1)).Copy
Range("B1:C1000").Select
ActiveSheet.Paste
Calculate
End Sub
改变A1中的引用，运行下宏即可
宏么用不明白Hi我本回答被提问者采纳
Range(Range(Range("A1").Text), Range(Range("A1").Text).Offset(999, 1)).Copy
Range("B1:C1000").Select
ActiveSheet.Paste
Calculate
End Sub
改变A1中的引用，运行下宏即可
宏么用不明白Hi我本回答被提问者采纳
第2个回答 2011-01-11
Sub TT()
Dim A
Dim myr As Range
A = Cells(1, 1)
Range(A).Select
Selection.Offset(0, 0).Resize(1000, 2).Select
Selection.Copy
Range("b1").Select
ActiveSheet.Paste
End Sub
VBA 是这样的
我就简单的写一下你看看
你可以改成CLICK事件或其他事件~
函数 也可以2列的
你选择你的B1:B1000
输入
=OFFSET(INDIRECT(A1),0,0,1000,2)
输入好CTRL+SHIFT+回车
数组形式
就好了
Dim A
Dim myr As Range
A = Cells(1, 1)
Range(A).Select
Selection.Offset(0, 0).Resize(1000, 2).Select
Selection.Copy
Range("b1").Select
ActiveSheet.Paste
End Sub
VBA 是这样的
我就简单的写一下你看看
你可以改成CLICK事件或其他事件~
函数 也可以2列的
你选择你的B1:B1000
输入
=OFFSET(INDIRECT(A1),0,0,1000,2)
输入好CTRL+SHIFT+回车
数组形式
就好了
第3个回答 2011-01-11
B1输入
=OFFSET(INDIRECT($A$1),ROW(A1)-1,)
往下拉1000行即可
=OFFSET(INDIRECT($A$1),ROW(A1)-1,)
往下拉1000行即可
第4个回答 2011-01-11
一定要用VBA吗？用函数都可以搞定。
