2016-11-11から1日間の記事一覧
Option Explicit Sub Inp() Dim i As Integer Dim ER As Long ER = Cells(Rows.Count, 9).End(xlUp).Row For i = 1 To ER Cells(i, 12).Value = Mid(Cells(i, 9).Value, 2, 5) Next iEnd Sub 単に数字をそのまま別セルに移して、Mid関数で指定の文字列を 抜…
Option Explicit Sub Inp() Dim i As Integer Dim ER As Long ER = Cells(Rows.Count, 9).End(xlUp).Row For i = 1 To ER Cells(i, 12).Value = Mid(Cells(i, 9).Value, 2, 5) Next iEnd Sub 単に数字をそのまま別セルに移して、Mid関数で指定の文字列を 抜…