[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『excel一覧から案内状作成法について』(みつ)
sheet1に印刷対象者の一覧、
sheet2に案内状のフォーマットがあり、
sheet1の対象者の情報をsheet2の対象セルに転記、対象者別にexcelファイルで保存する方法を
教えていただけないでしょうか。
具体的には、Sheet1の
D列の情報→Sheet2のA1
E列の情報→Sheet2のA3
F列の情報→sheet2のF10とE37
I列の情報→Sheet2のA5とC33
J列の情報→Sheet2のC34
K列の情報→Sheet2のE34
L列の情報→Sheet2のE35
M列の情報→Sheet2のC36
N列の情報→Sheet2のC38
に転記したいのですが。
どのようにしたら可能かお教え頂けないでしょうか。
よろしくお願いいたします。
< 使用 Excel:Excel2013、使用 OS:Windows10 >
VLOOKUP 差し込み印刷 で検索してみてください。 (通りすがり) 2022/08/09(火) 13:20
シートを複製し新規ブックとして保存してはいかがでしょう?
数式は値化しておきましょう。
大量にあるのならマクロで。 (通りすがり) 2022/08/09(火) 13:51
参考過去ログです。
[[20210418180923]] 『 「データ差込して個別にファイル保存」 についax(Yur)
(通りすがり) 2022/08/09(火) 16:41
こんばんわ。。。^^ テスト処理対象データー範囲 $A$1:$Z$7 セルデーターは各セルアドレス 様々な方法が有るとは存じますが、一案で こんな感じでせうか。 お試しの際は新規ブックにて。。。^^; m(_ _)m Option Explicit Sub zsave_test() Dim v(), aAry(), bAry(), i&, j&, b, a$ bAry = Array("A1", "A3", "F10", "E37", "A5", _ "C33", "C34", "E34", "E35", "C36", "C38") aAry = Array(4, 5, 6, 6, 9, 9, 10, 11, 12, 13, 14) With Worksheets("Sheet1") v = .Cells(1).CurrentRegion.Value End With For i = 2 To UBound(v, 1) With Worksheets("Sheet2") For j = LBound(bAry) To UBound(bAry) .Range(bAry(j)) = v(i, aAry(j)) Next .Copy End With Set b = ActiveWorkbook a = "EBX_" & Format(Now, "hhmmss") & "_" a = a & Mid(Format(Timer - Int(Timer), "0.000"), 3) b.SaveAs ThisWorkbook.Path & "\" & a & "_" & Format(i - 1, "000") & ".xlsx", 51 b.Close False Next End Sub (隠居Z) 2022/08/09(火) 19:06
(◎_◎;)。。。 m(_ _)m (隠居Z) 2022/08/10(水) 07:55
無事やりたいことができました。
ありがとうございました。
(みつ) 2022/08/10(水) 13:10
難しく 考えず、
例えば Sheet1 の
D列 1強目を、
表示させたいなら、
表示させたい セルに、
=D1
と すればいいし。
じゃなしに、
表示対象行を 変えたいなら、
どの 行を、
表示させるかを、
例えば Sheet1A1に
入れておき、
=offset(Sheet1!$A$1,Sheet1!$A$1-1,4,1,1)
とかで いけませんか?
(Nouble) 2022/08/18(木) 16:39
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.