求助如何根据柜号反过来排列

long617251993 · 发表于 2023-3-26 14:52

如何把后面数据根据行里的柜号反过来排，合并单元格的内容顺序不变。就是本来是16AA301到16AA317,B变为AA317-AA301

高个子 · 发表于 2023-3-26 15:12

你这个函数只能得到不合并单元格的情况，如果你想一步到位那就VBA或者jsa解决，不会就去VBA或者jsa版块问

long617251993 · 发表于 2023-3-26 15:27

高个子发表于 2023-3-26 15:12
你这个函数只能得到不合并单元格的情况，如果你想一步到位那就VBA或者jsa解决，不会就去VBA或者jsa版块问

好的谢谢你

LIUZHU · 发表于 2023-3-26 23:46

long617251993 发表于 2023-3-26 15:27
好的谢谢你

看起来，JSA应该能实现

LIUZHU · 发表于 2023-3-26 23:59

也不是很难，每复制n列，就在目标区域的A1单元格前插入n列，达到反序的效果。

LIUZHU · 发表于 2023-3-26 23:59

附件效果如下

mmwwdd · 发表于 2023-3-27 05:34

表格太乱，不好弄，数据的基本就是规范

liulang0808 · 发表于 2023-3-27 08:31

Sub ttt()
Set d = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
arr = Sheets(1).UsedRange
c = 1
For j = 1 To UBound(arr, 2)
      If arr(1, j) = "" Then arr(1, j) = arr(1, j - 1)
      If Not d.exists(arr(1, j)) Then
         Set d(arr(1, j)) = Sheets(1).Cells(1, j)
      Else
         Set d(arr(1, j)) = Union(d(arr(1, j)), Sheets(1).Cells(1, j))
      End If
Next j
For j = d.Count - 1 To 0 Step -1
      d(k).EntireColumn.Copy Sheets(2).Cells(1, c)
      c = c + d(k).Cells.Count
Next j
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2023-3-27 08:32

附件内容供参考。。。。。。

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

[求助] 求助如何根据柜号反过来排列

评分