qgl様_VBA いつもお世話になっております。 またよろしくお願いいたします。 添付:転記元データ( Excel ワークシート (.xlsx))

画像
補足

qgl様 すみません、補足に画像が添付できませんでした。 何でも結構ですので、コメントいただけたら、返信に添付します。

Excel | Visual Basic297閲覧xmlns="http://www.w3.org/2000/svg">500

ベストアンサー

0

Function ReWrite(ByRef ary As Variant) Dim i As Long, cnt As Long Dim buf As String For i = 1 To UBound(ary, 1) cnt = Len(ary(i, 1)) - Len(Replace(ary(i, 1), "-", "")) If cnt = 2 Then ary(i, 1) = Split(ary(i, 1), "-")(1) & "-" & Split(ary(i, 1), "-")(2) End If Next i ReWrite = ary End Function '以上です。 長いので転記ミスにはご注意ください。

ThanksImg質問者からのお礼コメント

いつもありがとうございます。次回もどうぞよろしくお願いします。

お礼日時:5/27 3:53