[已解决]表数据填入

guolianjd · 发表于 2016-1-10 09:32

本帖最后由 guolianjd 于 2016-1-10 13:59 编辑

求助表数据填入，见附件

表数据填入.rar (9.62 KB, 下载次数: 7)

baksy · 发表于 2016-1-10 09:43

附件

sobili · 发表于 2016-1-10 11:02

附件如下：

表数据填入.zip (13.45 KB, 下载次数: 3)

guolianjd · 发表于 2016-1-10 11:52

sobili 发表于 2016-1-10 11:02
附件如下：

表格做好了，希望对你有帮助。如果有，请在标题前写上【已解决】。谢谢！

还能批量打印？

guolianjd · 发表于 2016-1-10 12:05

baksy 发表于 2016-1-10 09:43
附件

你好，谢谢你的解答，有个地方我描述错了
到龄日期是：1952年x月出生=2012.x；1953年x月出生=2013.x；1954年x月出生=2014.x以此类推

guolianjd · 发表于 2016-1-10 12:06

sobili 发表于 2016-1-10 11:02
附件如下：

表格做好了，希望对你有帮助。如果有，请在标题前写上【已解决】。谢谢！

你好，谢谢你的解答，有个地方我描述错了
到龄日期是：1952年x月出生=2012.x；1953年x月出生=2013.x；1954年x月出生=2014.x以此类推

baksy · 发表于 2016-1-10 12:36

guolianjd 发表于 2016-1-10 12:05
你好，谢谢你的解答，有个地方我描述错了
到龄日期是：1952年x月出生=2012.x；1953年x月出生=2013.x；19 ...

附件2

guolianjd · 发表于 2016-1-10 13:58

baksy 发表于 2016-1-10 12:36
附件2

谢谢

guolianjd · 发表于 2016-1-11 08:45

sobili 发表于 2016-1-10 11:02
附件如下：

表格做好了，希望对你有帮助。如果有，请在标题前写上【已解决】。谢谢！

搬运过来

Sub 批量打印()
Dim r&, i&, x&, s$
r = Range("j65535").End(3).Row
For i = 3 To r
Range("b3") = Range("j" & i)
Range("a1:h6").PrintOut
Next
Range("A1").Select
End Sub

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