エクセル VBAでふりがなを別のセルから取得する

エクセル（Excel）でA列に漢字で氏名が入っており、B列に入っているふりがなを、ふりがなを表示したときにA列に氏名とふりがなを表示させる。

 Sub ふりがなの取得()
   Dim gyou As Integer
   For gyou = 1 To 200
   Range("A" & gyou).Select
   Range("A" & gyou).SetPhonetic
   Range("A" & gyou).Phonetic.Visible = True
   ActiveCell.Characters(1, 5).PhoneticCharacters = Range("B" & gyou)
   Next gyou
   Range("A1").Select
End Sub

エクセル 住所から市町村を抜き出す

エクセル（Excel)で住所から関数を使って市町村をぬきだす。

=IF(ISERROR(FIND("区",A1)),IF(ISERROR(FIND("郡",A1)),IF(ISERROR(FIND("市",A1)),"",LEFT(A1,FIND("市",A1))),LEFT(A1,FIND("郡",A1))),LEFT(A1,FIND("区",A1)))

市町村名に区　郡が入っているとうまくいかないです。

エクセル VBAでVlookupをつかう

エクセル（Excel)のVBAでVlookupをつかう。

VBAでワークシート関数を使うときは、WorksheetFunctionを使います。

Set 検索範囲 =Worksheets("シート名").Range("範囲")

Application.WorksheetFunction.VLookup(検索番号, 検索範囲, 2, False)

検索範囲は、先にSetで定義しておきましょう。

エクセル VBAで最後の行を下から確認する

エクセル（Excel）VBAで最後の行を下から確認する
セルを結合したりしていると上から確認すると思うようにいかないことがあります。
そんなときは、下から確認するとうまくいきます。

A列の場合
Cells(Rows.Count, "A").End(xlUp).Row

Aは列です。

エクセル VBAで範囲の結合

エクセル（Excel）のVBAで範囲を結合する

Range(最初のセル,最後のセル）.Merge

アクティブセルからオフセットした範囲の結合

Range(ActiveCell,ActiveCell.Offset(行数字,列数字)).Merge