質問者が納得下記で試してください。
＞A1にファイル名（index.html） B1にhtmlの中身（<html>～</html>）
のシートをアクティブにして実行して下さい。データはA1より連続であるものと仮定しています。
Sub htmlコピー()
Dim c As Range
Dim s As String, TmpS As String
Dim myF As Integer
On Error Resume Next
For Each c In Range("A1...
6181日前view100
