根据sheet1的资料，填入sheet2相对应资料的打印模板里

nighthawk

	底色有颜色的单元格填入sheet1所选那一行的相对应资料
	例如选择sheet1  A10，sheet2就自动填入相对应资料
	如果相对应单元格是空，也填入空

科室	B	规格	BB	项目	b	执行者	李四
项目	次项目	结果	单位	范围
b	李四*	9.8	L	< 4.0
结论：	不合格
检测日期	1月7日	报告日期	1月9日	检测者	老王	审核者

chang890120

谢谢分享

nighthawk

chang890120 发表于 2015-12-1 12:01
谢谢分享

不用谢我想要的是解决方法.....

爱疯

'作用：将多个数据，存入数据区
Sub ToData()
    Dim Rng As Range
    Dim rngArray(1 To 1, 1 To 99) As String    '99表示99个指定单元格，应该够用了。
    Dim s As Integer

    '1）收集数据
    Sheets(2).Select    '选取填写区的工作表
    For Each Rng In Range("b16,b3,d3")    '依次指定，自行修改！
        s = s + 1
        rngArray(1, s) = Rng
        'rng = ""    '可选。如果开启，将清除本次填入的数据
    Next

    '2）存入数据区
    Sheets(1).Select    '选取数据区的工作表
    Range("A" & Cells(Rows.Count, 1).End(3).Row + 1).Resize(1, s) = rngArray '写到最后一行
    MsgBox "保存完毕", , "提示"
End Sub


我只写了3个，剩余的你可以自己补上。

nighthawk

爱疯 发表于 2015-12-1 16:41
'作用：将多个数据，存入数据区
Sub ToData()
    Dim Rng As Range

大神...我看不懂

爱疯

3.rar (11.19 KB, 下载次数: 37)

2015-12-1 18:54 上传

点击文件名下载附件