[讨论]点击按钮,将表1指定单元格数据存到表2的最后一个空行中!

jiangrushu · 发表于 2006-9-14 16:42

4m9U8i2H.rar (2.46 KB, 下载次数: 9)

点击按钮,将表1指定单元格数据存到表2的最后一个空行中!

具体要求详附件.请各位大虾出招!

mallen · 发表于 2006-9-14 17:21

不知道符合不符合楼主的要求。

O8Ua65o3.zip (8.37 KB, 下载次数: 47)

jiangrushu · 发表于 2006-9-14 18:13

谢谢楼上的,您做的虽然和我说的不完全一样,但基本能满足的我要求,就是还不知道那个序号如何自动生成.哪位帮忙完善一下更好.谢谢!!!

nolo · 发表于 2006-9-14 19:02

序號

sht2.Cells(n, 1) = sht2.Cells(n, 1) + n - 1

jiangrushu · 发表于 2006-9-14 20:53

Sub fill()

    Dim sht1 As Worksheet
    Dim sht2 As Worksheet

    Set sht1 = Worksheets("sheet1")
    Set sht2 = Worksheets("sheet4")

    n = sht2.Range("A36500").End(xlUp).Row + 1
    sht2.Cells(n, 1) = sht2.Cells(n, 1) + n - 1
    sht2.Cells(n, 2) = sht1.Range("G4")
    sht2.Cells(n, 3) = sht1.Range("D18")
    sht2.Cells(n, 4) = sht1.Range("D6")
    sht2.Cells(n, 5) = sht1.Range("D26&D28&D30")
    sht2.Cells(n, 6) = sht1.Range("D88")
    sht2.Cells(n, 7) = sht1.Range("H281")
    sht2.Cells(n, 9) = sht1.Range("right(D10,8,6)")

End Sub

测试时说,变量n未定义!

jiangrushu · 发表于 2006-9-14 20:54

这是怎么回事,我是EXCEL2003

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

[讨论]点击按钮,将表1指定单元格数据存到表2的最后一个空行中!

评分