Sub get_sameday() Worksheets("Sheet1").Activate Dim i, pv Dim vl pv = 1 For i = 30 To 1 Step -1 vl = InStr(Cells(i, 1).Value, "即答") If vl <> 0 Then vd = Mid(Cells(i, 1).Value, 8, 3) Worksheets("Sheet2").Activate Cells(pv, 1).Value = vd p…

Sub IE_table_output() Application.ScreenUpdating = False 'IEの起動Dim objIE As Object Set objIE = GetObject("", "InternetExplorer.Application") objIE.Visible = True objIE.navigate "https://www.kanzaki.com/docs/html/htminfo16.html" ' ページ…