Excel マクロ 特定文字の抽出

質問

Excel マクロ 特定文字の抽出

10月20日に質問させていただき、jcctaira様にご回答頂きました。
1点うまくいかない点があり、再度質問させていただきます。

お教え頂きましたマクロは下記になります。

For i = 2 To last
　　strt = Mid(Cells(i, "A"), 6, 3)
　　Cells(i, "B") = strt
　Next i
End Sub

3文字が3桁の数字で例えば「001」や「022」の場合に
貼り付けたセルでは「1」や[22」になり0が表示されません。

どのように貼り付けを指定すれば3桁の数字（先頭が0のもの）が
正しく反映されますでしょうか。

回答No.2

jcctaira · ベストアンサー

hyogara777さん　こんにちは。

方法は大きく２つあります。
1.セルにセットする値を文字(頭にアポストロフィー「'」を付ける）にする
　Cells(i, "B") = "'" & strt

2.表示形式を変更する
　2-1.文字形式にする
　　Cells(i, "B").NumberFormatLocal = "@"　　
　　Cells(i, "B") = strt
　2-2.数字で３桁表示にする
　　Cells(i, "B").NumberFormatLocal = "000"　　
　　Cells(i, "B") = strt

上記から、自分にあった対応をしてください。

お礼

ご回答ありがとうございます。参考にさせて頂きます。

回答No.5

Wendy02

表示形式を文字列にした場合は、そのセルは参照しないということが条件になります。
数式などで、参照式を入れれば、参照したセルも文字列になってしまいますから、数式は計算されずに、数式になって現れてしまいます。

例：
B列を文字列にすると
B1:
012

C1:
=MID(B1,1,2)

表示：=MID(B1,1,2) 数式がそのまま表示してしまうというバグがあります。(出ない場合は、何度か数式を入れていると、C1の表示形式が文字列になっています。だから、表示形式は、なるべく文字列にしないほうがよいのです。だから、接頭辞(Prefix)を付けて処理したほうがよいです。

なお、接頭辞(Prefix) の「'」アポストロフィーは、文字列としての認識を受けませんので、

B1:
'012
C1:
=LEN(B1)

とすると、3 と出てきます。
表示形式の接頭辞として認識していれば、上記の場合は「4」にはなりません。

お礼

ご回答ありがとうございます。参考にさせて頂きます。

回答No.4

mu2011

Ｂ列を選択→セルの書式設定→表示形式を文字列するだけでマクロコードを追加する必要がありませんのでお試しください。

お礼

ご回答ありがとうございます。参考にさせて頂きます。

回答No.3

Wendy02

かならず、Cell/Rangeオブジェクトには、プロパティをつける習慣をつけましょう。

'//
Sub SelectUpData()
　Dim i As Long, j As Long, c As Variant
　Application.ScreenUpdating = False
　With ActiveSheet
　For Each c In .Range("A1", .Cells(Rows.Count, "A").End(xlUp))
　　If c.Value <> "" Then
　　　i = InStr(1, c.Text, "-", 1)
　　　'2番目の塊なら、このままでよいし、もし3番目などでは、ここに加える
　　　j = InStr(i + 1, c.Text, "-", 1)
　　　c.Offset(, 1).Value = "'" & Mid$(c.Text, i + 1, j - (i + 1))
　　End If
　Next
　End With
　Application.ScreenUpdating = True
End Sub

お礼

ご回答ありがとうございます。参考にさせて頂きます。

回答No.1

conanthe

次のコードを試してください。

For i = 2 To last
strt = Mid(Cells(i, 1), 6, 3)
Cells(i, 2).NumberFormatLocal = "@"
Cells(i, 2) = Format(strt, "0##")
Next i

お礼

ご回答ありがとうございます。参考にさせて頂きます。