PCメモ

Excelを中心とした業務改善の記録

2020-08-20から1日間の記事一覧

くるくるマクロ

名簿を参照して宛名を1つずつ差し込んでいく。 sheet1"A1"にsheet2A列のデータを差し込む。 'sheet2A列の最終行番号を取得 。 Dim LastRow As Long LastRow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row 'ForNextで最終行まで差し込みを繰り…