VBA 前缀左右互相配对 ( 难度高 )

On_fire · 发表于 2024-1-25 17:17

本帖最后由 On_fire 于 2024-1-25 17:35 编辑

*

Sheet1是源数据 ( 不参加计算的, 暂时去掉 )

[AA19:AB32]是同行兩列一组数据

[AA19:AA32]的前缀是两个数值, 分别用点”.”分了左值及右值,

*

代码的逻辑如下,

1. [AE52:AR52]左到右顺序, 是给的

2. 取[AE52:AR52]的左右前缀, 分别配对[AA19:AA32]的右左前缀

3. 当数值左配右, 对上时, 在同列第62及63行输出结果

4. 当数值右配左, 对上时, 在同列第64及65行输出结果

*

Sheet1(2)有部分模拟结果 ( 注:要含标示 )

*

难度高,

恳请大神, 老师出手帮忙…感谢!!!

gwjkkkkk · 发表于 2024-1-25 17:25

楼主出新题，标记一下。

On_fire · 发表于 2024-1-25 17:35

gwjkkkkk 发表于 2024-1-25 17:25
楼主出新题，标记一下。

老师好,
这题有点难度…

chxw68 · 发表于 2024-1-25 19:21

参与一下，题意理解不一定正确，结果不一定对。

On_fire · 发表于 2024-1-25 19:42

chxw68 发表于 2024-1-25 19:21
参与一下，题意理解不一定正确，结果不一定对。

褚老师,
您的理解是正确, 配对逻辑也是对的.
真没啥问题可以难得您…厉害!
*
请问如果结果不是输出数组,
而是改用copy and paste方式可以吗?

fzxba · 发表于 2024-1-25 19:54

参与.zip (22.55 KB, 下载次数: 7)

gwjkkkkk · 发表于 2024-1-25 21:01

Option Explicit
Sub TEST1()
Dim ar, br, i&, j&, r&, strReplace$

With [AA19:AB32]
      ar = .Value
      ReDim Preserve ar(1 To UBound(ar), 1 To 6)
      For i = 1 To UBound(ar)
         ar(i, 1) = Replace(ar(i, 1), " ", "")
         For j = 1 To 2
            Set ar(i, j + 2) = .Cells(i, j)
         Next j
         ar(i, 5) = Split(ar(i, 1), ".")(0)
         ar(i, 6) = Split(ar(i, 1), ".")(1)
      Next i
End With
Rows("53:" & Rows.Count).Clear
With [AE52:AR52]
      br = .Value
      For j = 1 To UBound(br, 2)
         r = 10
         strReplace = Replace(br(1, j), " ", "")
         cr = Split(strReplace, ".")
         For k = 1 To UBound(ar)
            If ar(k, 6) = cr(0) Then
                  r = r + 1
                  ar(k, 3).Copy .Cells(r, j)
                  r = r + 1
                  ar(k, 4).Copy .Cells(r, j)
            End If
         Next k
         For k = 1 To UBound(ar)
            If ar(k, 5) = cr(1) Then
                  r = r + 1
                  ar(k, 3).Copy .Cells(r, j)
                  r = r + 1
                  ar(k, 4).Copy .Cells(r, j)
            End If
         Next k
      Next j
End With
Beep
End Sub

gwjkkkkk · 发表于 2024-1-25 21:05

请参考。。。

yynrzwh · 发表于 2024-1-25 21:33

Pairing.7z (20.34 KB, 下载次数: 5)

On_fire · 发表于 2024-1-25 21:35

gwjkkkkk 发表于 2024-1-25 21:05
请参考。。。

老师们好,
请问如果[AA19:AB32]的行数是变量,
[AE52:AR52]的前缀能配对上, 就出结果,
如配对不上就留空白, 这个要如何优化呢?

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

[求助] VBA 前缀左右互相配对 ( 难度高 )

评分

评分

评分

评分

评分