哪个老师有空，帮忙写个代码

不可说7625 · 发表于 2024-3-17 20:49

在sheet3  A1输入子午卯酉-坎宫
列出  子午卯酉-坎宫  在sheet1  E列中后面出现的值

例如
在sheet3  A1输入子午卯酉-坎宫
得到sheet1 E2子午卯酉-坎宫，下一个寅申巳亥-震宫，在sheet3 A2列出来。
下一个子午卯酉-坎宫在E12，子午卯酉-坎宫的下一个值是丑未辰戌-中宫在sheet3 A3列出来
sheet1 E34子午卯酉-坎宫，子午卯酉-坎宫的下一个丑未辰戌-中宫，在sheet3 A4列出来
sheet1 E16子午卯酉-坎宫，子午卯酉-坎宫的下一个子午卯酉-巽宫，在sheet3 A5列出来
截图_20240317204852.png

以此类推

风雨声点滴 · 发表于 2024-3-17 20:50

附件请上传

cnmlgb9998 · 发表于 2024-3-17 22:40

本帖最后由 cnmlgb9998 于 2024-3-17 22:42 编辑

PQ轻松解决！！！！！！！！！！！！！！！！！！！！

不可说7625 · 发表于 2024-3-17 22:57

cnmlgb9998 发表于 2024-3-17 22:40
PQ轻松解决！！！！！！！！！！！！！！！！！！！！

如果要输入其他的值呢？

cnmlgb9998 · 发表于 2024-3-17 23:05

就在你那个黄色单元格中，改。点刷新就行。

ykcbf1100 · 发表于 2024-3-18 08:05

参与一下。。。

ykcbf1100 · 发表于 2024-3-18 08:06

参与一下。。。

Sub ykcbf() '//2024.3.18
Set d = CreateObject("scripting.dictionary")
arr = Sheet1.[a1].CurrentRegion
For i = 2 To UBound(arr)
s = arr(i, 5)
If arr(i, 5) <> Empty Then
If Not d.exists(s) Then Set d(s) = CreateObject("Scripting.Dictionary")
d(s)(i) = i
End If
Next
m = 1
Me.UsedRange.Offset(1) = ""
s = Me.[a1]
If d.exists(s) Then
For Each k In d.keys
If s = k Then
For Each kk In d(k).keys
m = m + 1
Me.Cells(m, 1) = arr(kk + 1, 5)
Next
End If
Next
End If
MsgBox "OK！"
End Sub

复制代码

不可说7625 · 发表于 2024-3-18 15:41

风雨声点滴发表于 2024-3-17 20:50
附件请上传

上传了，看看。。。

不可说7625 · 发表于 2024-3-18 22:52

ykcbf1100 发表于 2024-3-18 08:05
参与一下。。。

把sheet1 E列数据拆成2列，
原来的E列子午卯酉-坎宫
拆成
E列子午卯酉，F列坎宫

sheet3要怎么修改下？

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

[求助] 哪个老师有空，帮忙写个代码