[已解决]关于提取行内容的问题

Gy奔跑吧小不点

在表3中输入行数，就能提取表2中相对应的行内容。详情请看附件，请求帮助，谢谢。

最佳答案

月排行榜 / 总排行榜

苏子龙

2016-11-19 12:09

1. Sub 提取()
   
2.     Dim arr, i%
   
3.     arr = Sheet1.Range("a1").CurrentRegion
   
4.     For i = 1 To [a65536].End(3).Row
   
5.         Cells(i, "f").Resize(, 6) = Application.Index(arr, Cells(i, 1).Value)
   
6.     Next
   
7. End Sub

复制代码

那就直接循环吧

跳转到最佳答案楼层

雨吧

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column = 1 Then
   
3.         Dim arr, br
   
4.         arr = Sheet1.Range("a1").CurrentRegion
   
5.         br = Application.Index(arr, Target.Value)
   
6.         Cells(Target.Row, "f").Resize(, 6) = br
   
7.     End If
   
8. End Sub

复制代码

提取.rar (11.65 KB, 下载次数: 2)

2016-11-19 11:11 上传

点击文件名下载附件

Gy奔跑吧小不点

雨吧 发表于 2016-11-19 11:11

谢谢代码，但这组代码需要用手一个一个的输，能不能复制粘贴批量提取。

苏子龙

1. Sub 提取()
   
2.     Dim arr, i%
   
3.     arr = Sheet1.Range("a1").CurrentRegion
   
4.     For i = 1 To [a65536].End(3).Row
   
5.         Cells(i, "f").Resize(, 6) = Application.Index(arr, Cells(i, 1).Value)
   
6.     Next
   
7. End Sub

复制代码

那就直接循环吧

Gy奔跑吧小不点

苏子龙 发表于 2016-11-19 12:09
那就直接循环吧

大爱，要的就是这个效果

jiahb2001

Sub 提取()
'
' 提取 Macro
' 宏由 闫龙方 录制，时间: 2016-11-19
'
Dim i, iRow As Long


For i = 1 To Sheet2.Range("A65536").End(xlUp).Row
    iRow = Sheet2.Cells(i, 1)
    Sheet1.Range("A" & iRow, "F" & iRow).Copy Sheet2.Cells(i, 6)
Next
'
End Sub

Gy奔跑吧小不点

jiahb2001 发表于 2016-11-19 13:39
Sub 提取()
'
' 提取 Macro

谢谢提供代码，赞一个