纵横标题，想限定列的相对顺序，谢谢liulang0808、cidanji老师！

lhj323323 · 发表于 2024-1-6 07:38

本帖最后由 lhj323323 于 2024-1-6 14:33 编辑

老师：

上传的附件有写好的语句
能实现运行成功。

现想增加DE辅助列，并据此修正【结果表】列的相对顺序，如下图
快照3.png

增加3句.rar (16.12 KB, 下载次数: 3)
老师如有空，请帮忙看看
先谢谢了！

liulang0808 · 发表于 2024-1-6 07:43

Sub tt()
Set d = CreateObject("scripting.dictionary")
r = Cells(Rows.Count, 4).End(3).Row
arr = [d1].Resize(r, 2)
For j = 2 To UBound(arr)
d(arr(j, 1)) = arr(j, 1) & arr(j, 2)
Next
arr = [h1].CurrentRegion
For j = 3 To UBound(arr, 2)
If d.exists(arr(1, j)) Then arr(1, j) = d(arr(1, j))
Next j
[h1].CurrentRegion = arr
End Sub

liulang0808 · 发表于 2024-1-6 07:44

增加3句.zip (18.22 KB, 下载次数: 8)

lhj323323 · 发表于 2024-1-6 08:40

liulang0808 发表于 2024-1-6 07:43
Sub tt()
Set d = CreateObject("scripting.dictionary")
r = Cells(Rows.Count, 4).End(3).Row
...

谢谢老师

但好像没有对。请看下图
快照5.png

liulang0808 · 发表于 2024-1-6 09:29

增加3句.zip (18.52 KB, 下载次数: 12)

sunshuangzhong · 发表于 2024-1-6 09:40

Sub 处理字段顺序()
'请在F列加一个各国需要放在哪一列，例：英语为M，美国为P
Dim Arr, i%, j%
Dim Rng As Range
Arr = Range("D1").CurrentRegion
Application.ScreenUpdating = False
Application.DisplayAlerts = False


         With Range("I1").CurrentRegion
            For j = 2 To UBound(Arr)
                  Set Rng = .Find(Arr(j, 1), LookIn:=xlValues, LookAt:=xlPart)
                  If Not Rng Is Nothing Then

                     Rng.EntireColumn.Cut
                     Columns(Arr(j, 3)).Insert
                  End If
            Next j

         End With


Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "完成"
End Sub

lhj323323 · 发表于 2024-1-6 11:25

liulang0808 发表于 2024-1-6 09:29

用一上午，终于搞定了
谢谢老师！

lhj323323 · 发表于 2024-1-6 11:27

liulang0808 发表于 2024-1-6 07:44

那个n=3
着实把我搞糊涂了，原来是与H1有关啊

lhj323323 · 发表于 2024-1-6 11:29

liulang0808 发表于 2024-1-6 07:44

生成的效果图如下

再次感谢老师的帮助！

快照3.png

cidanji · 发表于 2024-1-6 11:42

重写一份参与.rar (13 KB, 下载次数: 6)

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

[已解决] 纵横标题，想限定列的相对顺序，谢谢liulang0808、cidanji老师！

评分