2009-06-01から1ヶ月間の記事一覧
Sub rep_charge() Range("b3").Select lastrow = Range("b3").End(xlDown).Row For i = 3 To lastrow With Selection cur_val = .Value Range(.Offset(, 1), .Offset(, 6)).Select Selection.Replace what:="n", replacement:="", LookAt:=xlPart, _ SearchO…