スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

Sub test()
Dim i As Long
Dim step1 As Long
Dim laststep As Long
Dim z As Long
Dim タグ As String
Dim 締めタグ As String


Dim intNo As Integer
Dim strFileName As String

strFileName = "D:\デスクトップのファイル\sample.html"
intNo = FileSystem.FreeFile()


Open strFileName For Output As #intNo

Print #intNo, " "


'右への移動スケール
'2列目から
step1 = 2
'最終列まで
laststep = Cells(2, Columns.Count).End(xlToLeft).Column
締めタグ = ""

For i = 2 To 11
For z = step1 To laststep

If Cells(i, z).Value = Cells(i - 1, z).Value Then
'結合配下では何もしない
Else
If z = laststep Then
タグ = "
" & Cells(i, z).Value & "
"
締めタグ = ""
For re = step1 To laststep - 1
If Cells(i, re).Value = Cells(i + 1, re).Value Then
Else
締めタグ = 締めタグ + "
"
End If
Next re
タグ = タグ + 締めタグ
Else
If Cells(i, z).Value = Cells(i - 1, z).Value Then
タグ = Cells(i, z).Value
Else
'結合の先頭ではdivタグを挿入する
タグ = "
" & Cells(i, z).Value
End If
End If
Print #intNo, タグ
End If


Next z

Next i
Print #intNo, "
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。
"
Close #intNo
MsgBox "end"
End Sub
スポンサーサイト

コメントの投稿

非公開コメント

カレンダー
06 | 2017/07 | 08
- - - - - - 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31 - - - - -
FC2カウンター
プロフィール

ゆつ

Author:ゆつ

月別アーカイブ
最近の記事
ブログ内検索
ブロとも申請フォーム

この人とブロともになる

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。