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

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

胖子22 发表于 2012-11-5 21:47
我疏忽了，重新修订了表样，其实就是把两行最多四行的内容接成一行，前几列是空值的接到上一行的后面，抱 ...

sheet1表中S17单元格中的数据“12345” 到sheet2表怎么就没有了呢？？

无聊的疯子 · 发表于 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

复制代码

无聊的疯子 · 发表于 2012-11-6 07:48

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

你既然知道处理出来的结果少了数据，为啥不指出来那些地方少了那些数据呢？？

只说似乎少了不少数据，叫我慢慢去查那里少了那些数据啊？？

这是你的专业，你才是最清楚的吧？？别把求助贴弄成像“考试”贴一样的，还不告诉别人怎么去“解”！！

胖子22 · 发表于 2012-11-6 08:59

无聊的疯子发表于 2012-11-6 07:48
你既然知道处理出来的结果少了数据，为啥不指出来那些地方少了那些数据呢？？

只说似乎少了不少数据， ...

对不起，是我错了，我在家里的机器调试宏缺数据，但在单位的机器上又没事了，实在不好意思，我再试着弄一下。
对了老师，还有个问题，我想将两个表的指定单元格的数据进行比较，如果有差异用颜色或其他方式标出来，该怎么做

无聊的疯子 · 发表于 2012-11-6 09:07

胖子22 发表于 2012-11-6 08:59
对不起，是我错了，我在家里的机器调试宏缺数据，但在单位的机器上又没事了，实在不好意思，我再试着弄一 ...

具体情况具体分析，你说的这个，有很多种排列不同的数据，处理方法自然也不同，

就好比你问个 0 到 9 这10个数，怎么组合出来结果为5 一样，没说具体的要求，那0+5 也是5，1+4也是我，这些结果你确定是你要的？？

提问要想得到最快的解决，那就需要附件，同时做好结果表，并详细说明结果是怎么处理来的，

要让别人一眼就能明白你的意思！！换位思考一下，你老总给你安排一个你不清楚要怎么做的工作，那你是不是很郁闷呢？？

胖子22 · 发表于 2012-11-6 10:01

无聊的疯子发表于 2012-11-6 09:07
具体情况具体分析，你说的这个，有很多种排列不同的数据，处理方法自然也不同，

就好比你问个 0 到 9 ...

受教了，我也是头大的不行，不知道怎么才能说清楚，不是成心想考您，见谅，现将第二个要求的附件传给您

胖子22 · 发表于 2012-11-6 10:07

无聊的疯子发表于 2012-11-5 23:29
研究了半天算是搞懂了,中间的剪切位置有可能与你想的不一样，因为没有更多相关数据，所以就只有根据附件来 ...

我怎么才能加您为好友呢？

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