[[20220107150126]]　『A列の10桁の数字から下4桁をB列に表示させる』（さかな）　ページの最後に飛ぶ

『A列の10桁の数字から下4桁をB列に表示させる』（さかな）

VBA初心者です。

A列の10桁の数字（例：1000050027）を下4桁だけ（例：0027）B列に表示させたいです。
関数で簡単にできることは分かったのですが、VBAで処理したいです。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

VBAでもやることは関数と同じです。
（きまぐれおじさん） 2022/01/07(金) 15:19

てきとうです。

 Sub Test()
    Intersect(Columns(1), ActiveSheet.UsedRange).Offset(, 1).FormulaR1C1 = "=RIGHT(RC[-1],4)"
 End Sub

（ひまつぶし） 2022/01/07(金) 15:28

 こんなだろうか？
 0027をそのまま表記するために文字列にしてます。

 Sub Sample()
    Dim Rng  As Range
    For Each Rng In Range("A1", Range("A" & Rows.Count).End(xlUp))
        If Len(Rng.Value) > 4 Then
            Rng.Offset(, 1).NumberFormatLocal = "@"
            Rng.Offset(, 1).Value = Right(Rng.Value, 4)
        End If
    Next Rng
 End Sub
（通りすがり） 2022/01/07(金) 15:44

みなさまありがとうございます
解決しました…！
（さかな） 2022/01/07(金) 17:29

コメント返信：

[ 一覧(最新更新順) ]

[[20220107150126]] 『A列の10桁の数字から下4桁をB列に表示させる』（さかな） ページの最後に飛ぶ

[[20220107150126]]　『A列の10桁の数字から下4桁をB列に表示させる』（さかな）　ページの最後に飛ぶ