数字の下数桁を削除するVBAを教えてください

質問

EXCELでの構文を宜しくお願いいたします。
sheet1のA1～A10に6:30～13:00(6.5H)とか13:00～20:00(7.0H)がランダムに入力されています。このデータをsheet2のB1～B10に(6.5H)（7.0H)を削除して（右6桁を削除になるのでしょうか）コピーをするVBAでの構文を宜しくお願いいたします。

回答No.3

keithin

シンプルに、コピーし削除するだけです。

sub macro1()
worksheets("Sheet1").range("A1:A10").copy destination:=worksheets("Sheet2").range("B1")
worksheets("Sheet2").range("B1:B10").replace what:="(*)", replacement:=""
end sub

回答No.2

mshr1962

Sub XX()
Dim RG As Range
Dim Rs As Variant

For Each RG In Range("A1:A10")
RS = InStr(1, RG, "(")
If RS > 1 Then
RG.Offset(0, 1) = Left(RG, RS - 1)
End If
Next RG

End Sub

回答No.1

washi001

要は、( )を取るんですね。

下記を、sheet2のB1に書いて、B2からB10へコピーすればよいかと。
右６桁削除されます。

=left(sheet1!A1,len(sheet1!A1)-6)

補足

有難うございます。これはEXCEL関数ですので折角ですがVBAでお願いしたいのです