列内のセルに同じ用語を入力し、データが終了したら入力を停止します。
weylered 投稿 ·約 4年4ヶ月前
Windows 10、Excel 2016。ホームレスセンターでITボランティアをしています。Salesforceで作成したサインインシートをExcelにダウンロードし、マクロで加工して印刷リストを作成しています。各セルに「shelter out（シェルターアウト）」という単語を1列ずつ入力し、クライアントが前夜宿泊した場所を1列ずつ記入してほしいとのことです。
各セルにデータを正しく入力することはできますが、他の列にデータがなくなったら入力を停止する必要があります。そのため、ある日はリストに651人のクライアントが含まれていても、次の日には670人になっている可能性があります。
以下はマクロのfill関数です。隣接するセルにデータがない場合に処理を停止するにはどうすればよいでしょうか？
Sub Macro1()
'
' Macro1 Macro
'
'
Range(“J1”).Select
ActiveCell.FormulaR1C1 = “out apt shelt”
Columns(“J:J”).Select
Selection.FillDown
End Sub
助けてくれてありがとう！
