[已解决]各位大虾，帮帮忙，该表约有1500行，得先找出需剪切的，最后将空行清理掉

胖子22 · 发表于 2012-11-4 20:57

本帖最后由胖子22 于 2012-11-5 21:43 编辑

将表1内容转换成表2形式

最佳答案

无聊的疯子

2012-11-5 23:29

研究了半天算是搞懂了,中间的剪切位置有可能与你想的不一样，因为没有更多相关数据，所以就只有根据附件来判断了
如果是插入固定的列数则修改 L = L + .Range(.Cells(X, "I"), .Cells(X, Lx)).Columns.Count
比如固定插入10列，则 L=L+10

其它的代码都有说明，你自己慢慢研究下，应该能自己修改！

Sub 调整()
Dim Arr(), Hx As Long, X As Long, Ma As Integer, Lx As Integer
Dim L As Integer, H As Long
Application.ScreenUpdating = False '关闭屏幕更新
With Sheets("Sheet1") '指定要操作的表
Hx = .Range("I65536").End(xlUp).Row '提取 I 列使用到的最后一行的行号
With .Range("T1:V" & Hx) '指定操作 T,V 列
Arr = .Value '将值放到数组
.ClearContents '清除单元格中的值
End With
L = 19 '要插入数据的初始列数 19 列则是 S 列
For X = Hx To 1 Step -1 '倒循环
If Len(.Cells(X, "H")) = 0 Then '如果 H 列中没有值,就执行下面的代码
Lx = .Cells(X, "IV").End(xlToLeft).Column '提取该行使用到的最一列的列号
H = .Cells(X, "H").End(xlUp).Row '提取该行往上有数据行的行号
.Range(.Cells(X, "I"), .Cells(X, Lx)).Cut .Cells(H, L)
'将数据区域剪切到单元格(h行，l列)
L = L + .Range(.Cells(X, "I"), .Cells(X, Lx)).Columns.Count
'计算下一个数据要剪切到的列号，
Else
If L > Ma Then Ma = L '记录使用的最大的列号
L = 19 '初始列号
End If
Next
.Cells(1, Ma).Resize(UBound(Arr), UBound(Arr, 2)) = Arr '将原 T:V 列的数据重新写回新的单元格位置
.Columns("G:G").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
'使用定位》空值功能，整行删除 G:G 列中有空值的行
End With
Application.ScreenUpdating = True '打开屏幕更新
End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy · 发表于 2012-11-4 20:59

附件呢？
如何帮你解决啊。

胖子22 · 发表于 2012-11-4 21:00

这就上传，您看到了么？

胖子22 · 发表于 2012-11-4 21:12

多谢了，您在写么？我在线等您，想给您发短消息，系统提示不让用，郁闷

pureshadow · 发表于 2012-11-4 21:43

是要把空行都填成上一行的内容吗？
选取数据区域》F5》定位条件》空值》确定，查看名称框里的地址，在编辑栏里录入=名称框地址的上一个，比如名称框里是A5，那就录入 =A4，最后按Ctrl+Enter结束。

胖子22 · 发表于 2012-11-4 21:55

看来问题我没描述清楚，重新描述如下：1、需查找出前8列为空的行查找出来；2将前8行为空的行中有效数据复制到上一行的末尾；3、如果前8行为空的连续出现，需将连续的这几行均重复上述操作，与最近的那个不为空的行连成一大行；4、清除掉复制过的数据变为空行；5、清除掉空行，最终形成一个新表

胖子22 · 发表于 2012-11-5 17:42

，没人帮忙吗！求求各位高手了，再拖一天我可要失业了

无聊的疯子 · 发表于 2012-11-5 18:29

不光没有说清楚，附件里的结果没有说明，也让人头晕啊！！

只有你才知道怎么处理数据，结果你又不会写代码！！

会写代码的人呢又看不懂你的表，真是恼火！！

无聊的疯子 · 发表于 2012-11-5 18:43

胖子22 发表于 2012-11-4 21:55
看来问题我没描述清楚，重新描述如下：1、需查找出前8列为空的行查找出来；2将前8行为空的行中有效数据复制 ...

附件中并没有名称为 sheet1 的表，只有sheet2和sheet3
根据codename来看的话，好像也不对

根据你的描述来看问题
将前8列为空的行找出来，那就是 A到H 列中的空行
第一行是空的，为啥不处理？

将前8行为空的行中有效数据复制到上一行的末尾
既然是空的行，那里来的有效数据呢？？

3、如果前8行为空的连续出现，需将连续的这几行均重复上述操作，与最近的那个不为空的行连成一大行；
不论是sheet2,还是sheet3前8行都只有局部单元格是空的，所以依然看不懂

4、清除掉复制过的数据变为空行
这个问题就是删除掉空行吧？为啥有的空行依然保留呢？

胖子22 · 发表于 2012-11-5 21:47

无聊的疯子发表于 2012-11-5 18:43
附件中并没有名称为 sheet1 的表，只有sheet2和sheet3
根据codename来看的话，好像也不对

我疏忽了，重新修订了表样，其实就是把两行最多四行的内容接成一行，前几列是空值的接到上一行的后面，抱歉！！！

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