|
もうもう見てないかも知れませんが、せっかく作ってたんで。
挑戦的な質問内容にチョット戸惑い(≧ω≦)b
neptune さんの意見と120%同感ですが、
実は、久しぶりに自分の初質問投稿の内容を見て、ちょ〜赤面しました。
その時の、回答者J○さんに感謝した気持ちは今でも忘れません。
前置きはさておき、
こんなものを作ってみました。
Sub tyousen()
Dim Search_Range As Range
Dim Hit_Range As Range
Dim T As Range
Dim Search_Str As String
Sheet1.Activate
Search_Str = "M06"
Set Search_Range = Sheet1.Range("A1:A12")
For Each T In Search_Range
Set Hit_Range = T.Find(What:=Search_Str, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)
If Hit_Range Is Nothing Then
T.Offset(0, 1).Value = T.Value
Else
T.Offset(0, 1).Value = "けろ・けろ" & T.Value
End If
Next
End Sub
新規ブックのSheet1のA列に
X-155.
X-158.
G00Z100.
M09
M05
G91G00G28Y0.Z0.
G90G54.1X0.
M06
( 16. RADIUSMILL )
N002
G90G00G54X-170.Y7.T5
G43Z100.H3S2000M03
を、入力しておいてから実行してみてねん
ここから質問をやり直しましょう。
でばでば
|
|