查询对应单元格数据的问题

杨小妹 · 发表于 2024-9-18 10:24

本帖最后由杨小妹于 2024-9-18 12:01 编辑

附件

查询对应单元格数据.rar (505.19 KB, 下载次数: 13)

谢谢老师！

songshihai · 发表于 2024-9-18 10:43

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Qs18 · 发表于 2024-9-18 11:33

Sub qs()
With Sheet1
r = .Cells(Rows.Count, 1).End(3).Row
arr = .Range("a1:b" & r)
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
brr(i, 1) = Sheet2.Range(arr(i, 1) & arr(i, 2)).Value
Next
.Range("c1").Resize(r, 1) = brr
End With
End Sub

复制代码

Qs18 · 发表于 2024-9-18 11:34

试试。。。。。

Qs18 · 发表于 2024-9-18 11:35

试试。。。。。。

gwjkkkkk · 发表于 2024-9-18 19:14

Option Explicit
Sub TEST1()
Dim br, i&, j&, n&, r&

r = Cells(Rows.Count, "A").End(xlUp).Row
br = Range("A1:B" & r).Value

With Worksheets(2)
      For i = 1 To UBound(br)
         br(i, 1) = .Cells(br(i, 2), br(i, 1))
      Next i
End With

[C1].Resize(UBound(br)) = br
Beep
End Sub

gwjkkkkk · 发表于 2024-9-18 19:15

。。。。。。。。。。。。

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

[已解决] 查询对应单元格数据的问题

评分

评分

评分

评分