[已解决]求大佬 if q<>p 怎么调换位置

love586 · 发表于 2022-1-1 19:04

Sub 小合并A()
arr = Range("A2:A15") '指定区域------
brr = Range("B1", Range("B1").End(xlToRight)) '指定横向区域-N-个数
Dim jg(), q$, p$
ReDim jg(1 To UBound(arr), 1 To UBound(brr, 2))
Set d = CreateObject("scripting.dictionary")
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
For i = 1 To UBound(arr)
reg.Pattern = "[A-Z]"
Set ma = reg.Execute(arr(i, 1))
a = ma.Count
For k = 0 To ma.Count - 1
d(k) = ma(k)
Next
reg.Pattern = Join(d.items, "|")
s = reg.Pattern
For j = 1 To UBound(brr, 2)
If reg.test(brr(1, j)) Then
q = Right(arr(i, 1), 7) '加上这段
p = Right(brr(1, j), 7) '加上这段
If q <> p Then '加上这段
jg(i, j) = ""
End If '加上这段，结果没变
Else
'q = Right(arr(i, 1), 7)
'p = Right(brr(1, j), 7)
jg(i, j) = arr(i, 1) & "一" & brr(1, j)
End If
Next
d.RemoveAll
Set ma = Nothing
Next
Range("b2").Resize(UBound(arr), UBound(brr, 2)) = jg
End Sub

复制代码

求 Right(arr(i, 1), 7)不等 Right(brr(1, j), 7)

数值是取后面7个字符

怎么调换位置

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2022-1-1 20:36

本帖最后由大灰狼1976 于 2022-1-1 20:37 编辑

根据你的代码，jg(i, j) = arr(i, 1) & "一" & brr(1, j)只在满足If reg.test(brr(1, j)) Then条件为否时才会发生，而你添加的代码是在If reg.test(brr(1, j)) Then条件为真里面，本来里面就没有jg(i, j) 的赋值语句，所以你的jg(i, j) = ""有和没有都一样。

跳转到最佳答案楼层

love586 · 发表于 2022-1-1 19:40

有人吗

大灰狼1976 · 发表于 2022-1-1 20:36

这个最佳答案由大灰狼1976 给出，感谢大灰狼1976 的回答。

单击隐藏图章

本帖最后由大灰狼1976 于 2022-1-1 20:37 编辑

根据你的代码，jg(i, j) = arr(i, 1) & "一" & brr(1, j)只在满足If reg.test(brr(1, j)) Then条件为否时才会发生，而你添加的代码是在If reg.test(brr(1, j)) Then条件为真里面，本来里面就没有jg(i, j) 的赋值语句，所以你的jg(i, j) = ""有和没有都一样。

love586 · 发表于 2022-1-1 20:45

大灰狼1976 发表于 2022-1-1 20:36
根据你的代码，jg(i, j) = arr(i, 1) & "一" & brr(1, j)只在满足If reg.test(brr(1, j)) Then条件为否时才 ...

大佬，
            i = Right(arr(i, 1), 7)
            j = Right(brr(1, j), 7)

   值怎么变会原 i j 值

大灰狼1976 · 发表于 2022-1-1 21:03

love586 发表于 2022-1-1 20:45
大佬，
i = Right(arr(i, 1), 7)
j = Right(brr(1, j), 7)

没看明白你的意思，Right(arr(i, 1), 7) 是一个字符串，i和j是数值变量，不能赋值，你想要什么结果？

love586 · 发表于 2022-1-1 21:18

大灰狼1976 发表于 2022-1-1 21:03
没看明白你的意思，Right(arr(i, 1), 7) 是一个字符串，i和j是数值变量，不能赋值，你想要什么结果？

合并不相同字母，同时满足Right(arr(i, 1), 7)=Right(arr(1, j), 7)
才运算：Range("b2").Resize(UBound(arr), UBound(brr, 2)) = jg

字符相同.rar (35.64 KB, 下载次数: 0)

love586 · 发表于 2022-1-1 21:39

试了一下把qp值调出上面就就搞定

大灰狼1976 · 发表于 2022-1-1 21:42

搞定就好

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

[已解决]求大佬 if q<>p 怎么调换位置

评分