けど、何度か実行しないと削除が完了しない。なんでだろう？ Sub DeleteRows() Dim RanA As Range For Each RanA In Range("TableA!B1:B7000") If RanA.Cells.Value <> "" Then If RanA.Cells.Value = "○" Then RanA.Cells.EntireRow.Delete Exit For End If…

VLOOKUPとかでやったほうが早そうだけど、あえて無駄な処理をさせてみた。 VLOOKUPで探すよりかなり時間がかかった。 この行数のデータ参照で10分近くかかったのでかなり実用的ではないなあという感じでした。 Sub DiffData() Dim a As Long Dim RanA As Ran…

住所データを英語から日本語にしなければならないのでVBAで作ってみました。 英語住所だと1-1-1 OtemachiみたいになるのをOtemachi 1-1-1に入れ替える為のVBAです。 Sub Irekae() Dim a As Long Dim RanA As Range Dim chkA As String Dim chkB As String Di…