对应内容粘贴

LVMJ2023 · 发表于 2023-3-23 22:08

麻烦各位老师看下谢谢

LVMJ2023 · 发表于 2023-3-23 22:13

阐述有错误，我改下哈：杠后面的2对应的是“分组”表中的c12单元格，

lcluck2002 · 发表于 2023-3-23 22:22

L3为什么是100，没看明白。

LVMJ2023 · 发表于 2023-3-23 23:12

lcluck2002 发表于 2023-3-23 22:22
L3为什么是100，没看明白。

l3的100是以n3和o3的数据对应b和c列为筛选条件，b列筛选条件为n3的12345，c列筛选条件为o3 的12347，筛选的结果最末尾的数据对应A列的序列号为100

LVMJ2023 · 发表于 2023-3-23 23:16

lcluck2002 发表于 2023-3-23 22:22
L3为什么是100，没看明白。

是以n3的12345为条件筛选b列和o3的12347为条件筛选c列得出的结果最末一行对应的a列序号是100

LVMJ2023 · 发表于 2023-3-23 23:16

l3的100是以n3的12345为条件筛选b列和o3的12347为条件筛选c列得出的结果最末一行对应的a列序号是100

shiruiqiang · 发表于 2023-3-24 07:16

继续理解题意

shiruiqiang · 发表于 2023-3-24 07:19

Sub test2()

Dim arr, ar, brr
Dim dic
Set dic = CreateObject("scripting.dictionary")
brr = Sheets("·Ö×é").UsedRange
For i = 2 To UBound(brr, 2)
dic(brr(15, i)) = brr(12, i)
Next

arr = Sheets("1").[j1].CurrentRegion
For x = 2 To UBound(arr)
ar = Split(arr(x, 2), "-")
arr(x, 5) = dic(Val(ar(0)))
arr(x, 6) = dic(Val(ar(1)))
Next
Sheets("1").[j1].CurrentRegion = arr

End Sub

LVMJ2023 · 发表于 2023-3-24 10:15

shiruiqiang 发表于 2023-3-24 07:19
Sub test2()

Dim arr, ar, brr

一会有空再试下代码

LVMJ2023 · 发表于 2023-3-24 12:39

shiruiqiang 发表于 2023-3-24 07:19
Sub test2()

Dim arr, ar, brr

奇怪，没作用耶，no列数据全给清了

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

[求助] 对应内容粘贴

评分

评分