请教怎么去掉空单元格

seastone · 发表于 2007-7-2 20:40

有一excel数据文件,每一行长度不一致,现在想把它变成同一行长

一行长度不够的把下一行的第一列开始移过来

比如:

3 24 12 12 156 66

22 56 37

135

34 49 58 247 41 79

变成如下整齐的 6列

3 24 12 12 156 66

22 56 37 135 34 49

58 247 41 79

请教各位,有什么办法吗?

ZaVh09SS.rar (1.93 KB, 下载次数: 80)

[此贴子已经被作者于2007-7-2 20:47:41编辑过]

上清宫主 · 发表于 2007-7-2 20:57

根据你提供的附件写的（重排到第一行第十列起的单元格中）：

Sub A()
Dim n, nn, i, ii As Integer
n = 1
nn = 0
For i = 1 To 22
For ii = 1 To 6
   If Cells(i, ii) > 0 Then
      Cells(n, nn + 10) = Cells(i, ii)
      nn = nn + 1
      If nn = 6 Then
         nn = 0
         n = n + 1
      End If
    Else
      Exit For
    End If
Next ii
Next i
End Sub

oobird · 发表于 2007-7-2 21:11

Sub yy()
Dim c As Range, i%, m%, arr()
Set c = [a1:f22]
For i = 1 To c.Cells.Count
If c(i) <> "" Then
m = m + 1
ReDim Preserve arr(1 To m)
arr(m) = c(i)
End If
Next i
c.Clear
For i = 1 To UBound(arr)
c(i) = arr(i)
Next i
End Sub

seastone · 发表于 2007-7-2 22:00

谢谢版主和上清宫主,it work!

zhaoyunlong · 发表于 2008-11-7 08:02

我是菜鸟，看不懂代码

mn860429 · 发表于 2011-3-19 06:43

学习

Sub cc()
Dim rng As Range
For Each rng In Range("A1:F22")
      If Not IsEmpty(rng) Then
         i = i + 1
         Range("A1:F22").Offset(, 8).Cells(i) = rng.Value
      End If
Next rng
End Sub

卖蘑菇的小公主 · 发表于 2012-10-5 00:06

{:soso_e163:}

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

请教怎么去掉空单元格

好难啊

最新热点 /1

请教 怎么去掉空单元格

好难啊

最新热点 /1

请教怎么去掉空单元格