質問: 略称.Offset(0, 1).Value End With Next 略称 End Sub ``` デバッグを行うと[Cells(Rows.Count, 1)]のところが[Rows.Count=1048576]で、 [End(xlUp)]が[xlUp=-4162]となっているようで、明らかに値があるところ以外を見てしまっています。 そのため上にあげたエラーが出てしまっているのかと思いますが、 どのようにして解決したらよろしいでしょうか? よろしくお願いいたします。
回答: (追記2-1)に対して jawaさんはじめ、皆さんのお力添えのおかげで、 このマクロによりやりたいことが実現できました。 ``` Sub for文_別のシートに値を出力_その4() ' ハイパーリンク先を取得してそのシートに「データ一覧」の「国名」と「備考」を出力 ' "Withステートメント"を使って簡略化 Dim 備考取得 As Range Dim 略称 As Range For Each 備考取得 In Worksheets("備考記入").Range("A6", Worksheets("備考記入").Cells(Rows.Count, 1).End(xlUp)) For Each 略称 In Worksheets("データ一覧").Range("B4", Worksheets("データ一覧").Cells(Rows.Count, 2).End(xlUp)) If 略称.Value = 備考取得.Value Then 略称.Offset(0, 1).Value = 備考取得.Offset(0, 1).Value 略称.Hyperlinks(1).Follow With ActiveSheet .Range("B5") = 略称.Offset(0, -1).Value .Range("D5") = 略称.Offset(0, 1).Value End With Exit For End If Next 略称 Next 備考取得 End Sub ``` 長文にお付き合いいただき本当にありがとうございました。 おそらくまた質問を立てさせていただくことも多いかと思います。 その際はどうぞよろしくお願いいたします。