把符合条件的单元格向右上方移一格，并列放在一行？

sylknb · 发表于 2012-8-27 16:06

name	ck	ck1		name	ck	ck1
张三	80	90		张三	80	90
张三	90
李国	70	60		李国	70	60
李国	60		">===>
王五	89	75		王五	89	75
王五	75



	第一步把偶数行的ck移到ck1中(向上一行右移一个单元格
	第二步把偶数行的整行删除(标有绿色内容删除)

zhenyu_2599 · 发表于 2012-8-27 17:39

Sub t()
Dim i As Byte
Dim j As Byte
For i = 2 To 7
If Cells(i, 1) = Cells(i - 1, 1) Then
Cells(i - 1, 3) = Cells(i, 2)
End If
Next
For j = 2 To 7
If Cells(j, 3) = "" Then
Rows(j).Delete
End If
Next
End Sub

复制代码

sylknb · 发表于 2012-8-27 23:40

不用自定义函数，能否还有其它方法吗

qinqh_yl · 发表于 2012-8-29 21:53

假定表头占一行，数据从第2行开始，在C2单元格输入公式：
=IF(MOD(ROW(),2),"删除",B3)
将公式向下复制到相应行。
选中C列，复制，选择性粘贴，选中“数值”，确定。
选中ABC列，数据、筛选、自动筛选，筛选C列为“删除”的行，从行号处选中所有筛选结果行，按ALT+分号键，在选中区域点右键“删除行”。退出筛选状态。

9lee · 发表于 2012-8-29 21:55

可以用技巧

sylknb · 发表于 2012-9-1 10:56

谢谢各位，真是热心指教。

MCBA2012 · 发表于 2012-9-1 11:14

5楼好方法,学习了~~~

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

把符合条件的单元格向右上方移一格，并列放在一行？

相关帖子