回答編集履歴

一部削除

2020/06/03 15:32

投稿

スコア553

test CHANGED Viewed

@@ -74,8 +74,6 @@
 Option Explicit
 Sub Test_Sample_Miniature()
@@ -88,10 +86,6 @@
     Dim obj As IHTMLElement
-    Dim obj2 As IHTMLElement
-    Dim obj3 As IHTMLElement
     Dim j As Integer '行
     Dim i As Integer '列

カンマ抜く

2020/06/03 15:32

投稿

スコア553

test CHANGED Viewed

@@ -210,16 +210,14 @@
                     j = j + 1: i = 4
+                    MyStr = Mid(matA, InStr(matA, ">") + 1, Len(matA) - Len("</a>") - InStr(matA, ">"))
+                    Worksheets("Sheet1").Cells(j, i).Value = "( " & j & " - " & i & " )" & MyStr
+                    Worksheets("Sheet1").Cells(j, i).WrapText = False
                     '
-                    MyStr = Mid(matA, InStr(matA, ">") + 1, Len(matA) - Len("</a>") - InStr(matA, ">"))
-                    Worksheets("Sheet1").Cells(j, i).Value = "( " & j & " - " & i & " )" & MyStr
-                    Worksheets("Sheet1").Cells(j, i).WrapText = False
-                    '
                 Next
                 '

カンマ挿入

2020/06/03 15:12

投稿

スコア553

test CHANGED Viewed

@@ -222,6 +222,8 @@
                 Next
+                '
              Next
             '

訂正

2020/06/03 14:59

投稿

スコア553

test CHANGED Viewed

@@ -1,6 +1,6 @@
 解決されていますが、参考情報としてアップします。
-(文字列は正規表現を利用して編集)
+(文字列は正規表現で編集)