数据处理，高手请进！

zhaogang1960

按照20楼的意思,应该按照b列分组:
数据请教55.rar (10.55 KB, 下载次数: 13)

2009-6-18 22:19 上传

点击文件名下载附件

vincent.cn

太感谢您了，我是VBA的初学者。我得仔细学习这段代码。问题解决了，接下来就是用大量的数据验证了。
zhaogang1960老师，很不好意思地问你下，可以给我解决另外一个问题吗，还是要重新发新帖才行。
Sub 复制()
    Dim i%
    i = Selection.Rows.Count
    ActiveCell.Range("A1:AI" & i).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
End Sub
这是一段录制加修改的宏，问题是现在它可以在同一列当中同时选择几个连续的单元格执行，却不能在同一列当中同时选择几个不连续的单元格执行，请问该如何修改才好！

zhaogang1960

没有遇到这样的问题，试试看吧：
Sub Macro1()
    If Selection Is Nothing Then Exit Sub
    Dim c As Range, rng As Range, lc As Integer
    On Error GoTo 100
    For Each c In Selection
        If rng Is Nothing Then
            lc = c.End(xlToRight).Column - c.Column + 1
            Set rng = c.Resize(1, lc)
        Else
            Set rng = Union(rng, c.Resize(1, lc))
        End If
    Next
    rng.Copy
    Exit Sub
100
    MsgBox "请选择同列单个单元格"
End Sub

vincent.cn

哦，效果很好，可我只需要复制35列和17列就可以了，这个程序好像复制到N列了。
另外帮我看看附件里的工作表打开时应该会有一个窗体弹出，但是好像不知道为什么出错了！先谢了

weng

zhaogang1960

第一个问题，每次选择不连续的区域的第一列单元格，以选择的第一行向右延伸列数为准，即：22楼的Selection.End(xlToRight)，你说的“只需要复制35列和17列”程序无法判断，如果需要可以加一个对话框来解决
第二个问题我不会，歉

vincent.cn

哦，非常感谢！！！！

zhaogang1960

第二个问题已经发现问题，把OnTime事件放在模块中就可以实现了：
Private Sub UserForm_Initialize()
    Call bbb
End Sub
下面子程序放到模块中：
Sub bbb()
    Application.OnTime Now + TimeValue("00:00:04"), "ClearForm"
End Sub

Sub ClearForm()
    On Error Resume Next
    Unload UserForm1
End Sub
新建 Microsoft Excel 工作表.rar (10.67 KB, 下载次数: 9)

2009-6-19 23:38 上传

点击文件名下载附件

[ 本帖最后由 zhaogang1960 于 2009-6-19 23:38 编辑 ]

vincent.cn

非常感谢，终于搞出来了！

vincent.cn

zhaogang1960老师：非常感谢你的指导。经过大量的数据验证，这段代码很完美，唯一出现附件中的情形时，转换后的数据有异常。请试验