|
▼Tsuyo さん:
こんにちは。
> Format(エリア.Offset(0, 1).Value, "000")
のあとに 「A」などの文字を(それがあれば)付加したいってことですよね?
正規表現をつかって、文字列中から「数字でない部分」を取り出して
それを付加してみました。(C列に連結文字列を書き出しています)
Dim a, c, i As Long, ii As Long
Dim ss As String, s As String
a = Range("A2", Cells(Rows.Count, 1).End(xlUp)).Resize(, 2).Value
ii = UBound(a)
ReDim c(1 To ii, 0)
With CreateObject("VBScript.RegExp")
.Pattern = "\D+" '--- 数字でない文字列
For i = 1 To ii
ss = a(i, 2)
s = "": If .Test(ss) Then s = .Execute(ss)(0)
c(i, 0) = a(i, 1) & Format$(Val(ss), "000") & s
Next
End With
Range("C2").Resize(ii).Value = c
※もっと簡単な方法があるかも知れません。
|
|