[已解决]如何複製sheet1 符合條件的列到 sheet 2 ?

bianchi · 发表于 2012-1-14 21:02

本帖最后由 bianchi 于 2012-1-14 21:29 编辑

如何複製sheet1 符合條件的列到 sheet 2 ? 列可以是多條 , 我研究了很久也不能 , 請大大幫忙 !!

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-14 21:58

本帖最后由 sunjing-zxl 于 2012-1-14 22:00 编辑

Sub aa()
Dim arr, arr1
Dim i As Long, n As Long, m As Long
Application.ScreenUpdating = False
n = InputBox("输入数据", "输入条件数据")
arr = Range("A2:A" & [A65536].End(xlUp).Row)
ReDim arr1(1 To UBound(arr), 1 To 1)
m = 0
For i = 1 To UBound(arr)
If arr(i, 1) = n Then
m = m + 1
arr1(m, 1) = i
End If
Next i
m = 0
For i = 1 To UBound(arr1)
If arr1(i, 1) = "" Then
Exit For
Else
m = m + 1
Rows(arr1(i, 1) + 1).Copy Sheets("sheet2").Cells(m, 1)
End If
Next i
Application.ScreenUpdating = True
End Sub

复制代码

不清楚你的目的，我猜了一个。不知道是不是你要的结果

跳转到最佳答案楼层

happym8888 · 发表于 2012-1-14 21:05

你能不能上传一个附件，说说你的具体要求啊？

sunjing-zxl · 发表于 2012-1-14 21:19

附件，说明你的条件
这个不难

happym8888 · 发表于 2012-1-14 21:22

sunjing-zxl 发表于 2012-1-14 21:19
附件，说明你的条件
这个不难

sunjing-zxl,你天天在这里守株待兔啊！

sunjing-zxl · 发表于 2012-1-14 21:32

happym8888 发表于 2012-1-14 21:22
sunjing-zxl,你天天在这里守株待兔啊！

要捡一点便宜的来赚点BB啥

bianchi · 发表于 2012-1-14 21:35

本帖最后由 bianchi 于 2012-1-14 21:37 编辑

上傳了附件呢 , 我想把 msg box 輸入的條件 (A1 的 "99999" 那幾列) 復製到新的 sheet2 , 而 msg box 輸入的條件是不定的 .
我現在的困難是 msg box 輸入 "99999" 數值後只可以選一列 , 不能選多列 , 大大可以幫忙嗎 ?

sunjing-zxl · 发表于 2012-1-14 21:37

不只可以選一列 , 不能選多列？？？？？？？？？

你到底是要选一列，还是选多列

bianchi · 发表于 2012-1-14 21:38

sunjing-zxl 发表于 2012-1-14 21:37
不只可以選一列 , 不能選多列？？？？？？？？？

你到底是要选一列，还是选多列

打錯字 ... 是要選多列

sunjing-zxl · 发表于 2012-1-14 21:38

你的附件里面的代码我这里显示的是乱码。。
没法修改。

你把你的全部要求说一次

bianchi · 发表于 2012-1-14 21:44

sunjing-zxl 发表于 2012-1-14 21:38
你的附件里面的代码我这里显示的是乱码。。
没法修改。

由於我用繁體 , 我把它們轉做英文吧 , 我從新上傳一次

		自动登录	找回密码
密码			注册