質問: Left([A列], InStr([A列], "1" ) - 1) 非常に分かりづらい説明となってしまい申し訳ございませんが、 どなたかお教えいただけませんでしょうか。 よろしくお願いいたします。
回答: >For Each A列 In Selection > A列.Offset(, 1).Value = Left([ Sub Test() Dim A列 As Range, n As Long For Each A列 In Selection n = Evaluate("MIN(SEARCH({1,2,3,4,5,6,7,8,9,0}," & A列.Address & "&1234567890))") A列.Offset(, 1).Value = Left(A列, n - 1) A列.Offset(, 2).Value = Mid(A列, n) Next End Sub