文本条件函数

yoyo008001 · 发表于 2020-12-4 21:23

工作系统突然说改就改了，为了保护信息。现在的数据只能复制，太难啦！！！看下大神帮下忙解决下。。感谢感谢！！！

我走我流 · 发表于 2020-12-4 21:38

本帖最后由我走我流于 2020-12-4 22:02 编辑

给个PQ思路，先删除空行，添加索引，再分组，再拆分，最终效果如图

yoyo008001 · 发表于 2020-12-4 21:54

我走我流发表于 2020-12-4 21:38
给个PQ思路，先删除空行，添加索引，再分组，再拆分，最终效果如图

大神，我不会再分组，再拆分，可以截图告诉我步骤嘛。

yoyo008001 · 发表于 2020-12-4 22:01

我走我流发表于 2020-12-4 21:38
给个PQ思路，先删除空行，添加索引，再分组，再拆分，最终效果如图

感谢感谢

cjc209 · 发表于 2020-12-4 22:17

Sub 循环不连续区域()
Set d = CreateObject("Scripting.Dictionary")
[g1].CurrentRegion.Clear
For Each r In Columns(1).SpecialCells(xlCellTypeConstants, 23).Areas
      Set qy = r.CurrentRegion
      If Not d.Exists(qy.Address) Then
         d(qy.Address) = ""
         qy.Copy
         [g1].Offset(i, 0).PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=True
         i = i + 1
      End If
Next r
Application.CutCopyMode = False '取消复制选区
End Sub

uneye2 · 发表于 2020-12-4 22:39

文件处理.rar (10.52 KB, 下载次数: 2)

yoyo008001 · 发表于 2020-12-4 23:10

uneye2 发表于 2020-12-4 22:39

感谢感谢！！！

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

[已解决] 文本条件函数

评分

评分