VBA

VBAで「文字列の切り出しと文字列の結合」やってみる

目安時間 5分
  • コピーしました

今回は、文字列の切り出し、文字列の結合を行います。
「最高に色っぽい女優ランキング」から名前を使わせて頂きました。
【課題】
漢字の苗字、ふりがなの苗字、漢字の名前、ふりがなの名前を使い
漢字の苗字名前をC列に設定、ふりがなの苗字名前をD列に設定する
例:深田(ふかだ)恭子(きょうこ)の場合
 C列:深田恭子
 D列:ふかだきょうこ

【VBA】

Sub cutUnion()
    Dim i As Long
    '苗字変数
    Dim miyo1 As String
    Dim miyo2 As String
    Dim miyobuf1 As String
    Dim miyobuf2 As String
    Dim miyobuf3 As String
    '名前変数
    Dim name1 As String
    Dim name2 As String
    Dim namebuf1 As String
    Dim namebuf2 As String
    Dim namebuf3 As String
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        miyobuf1 = InStr(Cells(i, 1), "(")
        miyobuf2 = InStr(Cells(i, 1), ")") - 1
        miyobuf3 = miyobuf2 - miyobuf1
        miyo1 = Left(Cells(i, 1), miyobuf1 - 1)
        miyo2 = Mid(Cells(i, 1), miyobuf1 + 1, miyobuf3)

        namebuf1 = InStr(Cells(i, 2), "(")
        namebuf2 = InStr(Cells(i, 2), ")") - 1
        namebuf3 = namebuf2 - namebuf1
        name1 = Left(Cells(i, 2), namebuf1 - 1)
        name2 = Mid(Cells(i, 2), namebuf1 + 1, namebuf3)
       ' 苗字名前
       Cells(i, 3) = miyo1 & name1
       ' 苗字名前(ふりがな)
       Cells(i, 4) = miyo2 & name2
    Next
End Sub


簡単な説明
・「Cells(Rows.Count, 1).End(xlUp).Row」は、以前説明をしたのでこちらを御覧ください
・「miyobuf1 = InStr(Cells(i, 1), "(")」は、「"("」の位置を取得する
 「深田(ふかだ)」の場合、3を取得する
・「miyobuf2 = InStr(Cells(i, 1), ")") - 1」は、「")"」の位置を取得し、-1をする
 「深田(ふかだ)」の場合、6を取得する
・「miyobuf3 = miyobuf2 - miyobuf1」は、「深田(ふかだ)」の「ふかだ」を取得する文字数を取得する
・「miyo1 = Left(Cells(i, 1), miyobuf1 - 1)」は、「深田(ふかだ)」の左から「miyobuf1 - 1:3−1=2」2文字取得する
・「miyo2 = Mid(Cells(i, 1), miyobuf1 + 1, miyobuf3)」は、「深田(ふかだ)」の左の「miyobuf1 + 1:4」文字目から「miyobuf3:3」文字いを取得する。
 「深田(ふかだ)」の場合、「ふかだ」を取得する。

あなたのお役に立てるなら、コピーして使用してください。

今後も勉強した内容を記載して行きますので、お役に立てるものがあれば使ってください。

VBA開発もしておりますので開発のご要望があればご連絡をください。

VBA開発依頼受付はこちらから

  • コピーしました

この記事に関連する記事一覧

この記事を書いた人

すーさん

生きるためにはお金が必要

すーさん

50歳を超えてから副業を始めました。 どのような副業をしようか、悩みに悩んだ結果、『どんなものでも売る力』をつける。 これしかないです。 そのために、マーケティングを学ぶことを決めました。 古来より、価値の交換(ものを売る)は行われてきました。 これからも、価値の交換(ものを売る)は無くなるとは思えません。 今だけ稼ぎたいなら他にも選択はあるが、年と共に覚えも悪くなるので、いつまでも使える知識としてマーケティングを選びました。 マーケティングは学べば学ぶほど面白いものです。 人はどうしてそれを選ぶのだろう、人はどうしてそれを買うのだろう、人はどうしてそれを買わないのだろう。 このようなことがわかれば、後はどのようにすれば、人は選び、買ってくれるのかがわかります。 あなたも少しでも興味がありましたら、私と一緒に学びましょう。 「売れなかったものでも」「どんなものでも」『売る力』を身につけましょう。 お問い合わせ

コメントフォーム

名前  (必須)

メールアドレス (公開されません) (必須)

URL (空白でもOKです)

コメント

CAPTCHA


トラックバックURL: 
 プロフィール

すーさん

生きるためにはお金が必要

すーさん

50歳を超えてから副業を始めました。 どのような副業をしようか、悩みに悩んだ結果、『どんなものでも売る力』をつける。 これしかないです。 そのために、マーケティングを学ぶことを決めました。 古来より、価値の交換(ものを売る)は行われてきました。 これからも、価値の交換(ものを売る)は無くなるとは思えません。 今だけ稼ぎたいなら他にも選択はあるが、年と共に覚えも悪くなるので、いつまでも使える知識としてマーケティングを選びました。 マーケティングは学べば学ぶほど面白いものです。 人はどうしてそれを選ぶのだろう、人はどうしてそれを買うのだろう、人はどうしてそれを買わないのだろう。 このようなことがわかれば、後はどのようにすれば、人は選び、買ってくれるのかがわかります。 あなたも少しでも興味がありましたら、私と一緒に学びましょう。 「売れなかったものでも」「どんなものでも」『売る力』を身につけましょう。 お問い合わせ

最近の投稿
アーカイブ