[已解决][求助]怎么让数值紧密排列

东方智彩 · 发表于 2009-9-13 23:20

这个代码在不全部“√”选时，怎么让复制过去的数值紧密排列

For i = 1 To 45
    If Cells(204, [AF218] + i) = "√" Then
        Cells(204, [AN218] + i) = Cells(203, [AF218] + i)
    Else
    End If
Next i

请高手给修改一下！

最佳答案

月排行榜 / 总排行榜

1970-1-1 08:00

跳转到最佳答案楼层

bigsun · 发表于 2009-9-13 23:48

没附件么？

东方智彩 · 发表于 2009-9-14 07:38

怎么让数值紧密排列

这个代码在不全部“√”选时，怎么让复制过去的数值紧密排列

For i = 1 To 45
    If Cells(204, [AF218] + i) = "√" Then
        Cells(204, [AN218] + i) = Cells(203, [AF218] + i)
    Else
    End If
Next i

请高手给修改一下！

[求助]怎么让数值紧密排列

福建随风飘扬 · 发表于 2009-9-14 07:51

这个我还得学习一下

爱疯 · 发表于 2009-9-14 08:51

不知楼主说的“数值紧密排列”，是指自动调整列宽的效果么？若是，假如需调整的列的范围是A:C：

Columns("A:C").AutoFit

[em09]

东方智彩 · 发表于 2009-9-14 09:10

我是指的数值与数值之间不留空格

吕?布 · 发表于 2009-9-14 09:15

想不明白，应该是5档那样吧，有时空格是感觉，与字体有关，有时看起来能全部看到，打印时打不出来。

amulee · 发表于 2009-9-14 09:15

最好传个附件吧。

东方智彩 · 发表于 2009-9-14 10:10

上传了附件：

yxH2Ttma.rar (12.26 KB, 下载次数: 0)

amulee · 发表于 2009-9-14 10:19

Private Sub CommandButton1_Click()
i = 1
k = 1
Do While i <= 45
    If Cells(204, [AF218] + i) = "¡Ì" Then
        Cells(204, [AN218] + k) = Cells(203, [AF218] + i)
        k = k + 1
    End If
    i = i + 1
Loop
End Sub

[此贴子已经被作者于2009-9-14 10:19:49编辑过]

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