Question

关于EXCEL的一个很难的问题,希望有高人指点.

我想把图1的一些没有金额的项目去掉,就样图2一样,有什么好的方法没有,因为下面还有好多的人,一个一个删的话,工作量太大,所有向各位高手们指点一下,不知可不可以?小女子先说谢谢了!
分就只只好有多少给多少了!实在对不起了!
将地址复制到地址栏里,回车后,才可以看到的.

图一http://photo.store.qq.com/http_imgload.cgi?/rurl2=46439608c171d53f09afaf989f4cf0e4858802425aa0e7a4caf7083962d230e198fbd60b5c77bee249f8ab01562bc620887becb2f660578b5f5182512db29bf43234bc3643450d212db8375eb8f8923f55d46608
图二
http://photo.store.qq.com/http_imgload.cgi?/rurl2=badb90ee598e3411aeaf3e7665bf0a531f6cafb6727534d71184df7ec6f7ddcaa5d45aa36b4fe3419bd6b628a8052f209637f82033efe14257cc81aa2a6af33af2faa118b1a45b1d0d6c5f874f39c4ab3f9f12d8

将地址复制到地址栏里,回车后,才可以看到的.

能请qinqh_yl 讲讲是怎么实现的吗?

Answer 1

假定原数据在SHET1工作表中,请在SHEET2工作表A1单元格输入公式:
=IF(MOD(ROW(),4)=1,INDEX(Sheet1!1:1,SMALL(IF(Sheet1!$A2:$Z2<>"",COLUMN($A:$Z),256),COLUMN()))&"",IF(MOD(ROW(),4)=2,INDEX(Sheet1!1:1,SMALL(IF(Sheet1!$A1:$Z1<>"",COLUMN($A:$Z),256),COLUMN()))&"",""))
公式以CTRL+SHIFT+回车结束.
将公式向右向下复制到相应范围.

Answer 2

假定原数据在SHEET1工作表中

用宏来完成比较简单，三步走：
1.ALT+F11,在新打开的窗口中点插入/模块。
2.输入以下代码：

Sub yueliang()
Dim i, m, j As Integer
Sheets("SHEET1").Copy After:=Sheets(Sheets.Count)
m = Range("A65536").End(xlUp).Row
For i = 2 To m Step 4
j = 2
Do Until Cells(i - 1, j) = ""
If Cells(i, j) = "" Then
Range(Cells(i - 1, j), Cells(i, j)).Delete Shift:=xlToLeft
Else: j = j + 1
End If
Loop
Next i
End Sub

3.F5即可新生成一份工作表，且达到你的要求。

Answer 3

你这样的想法不可以的,
除非你手动操作才能把你想要删掉的才能删除掉!!!

Answer 4

你把EXCEL当word用了

Answer 5

问题不是太清楚啊。