よくわからなかったけどどっちもSpecialCells(xlLastCell or xlCellTypeLastCell).Rowで一度でも認識した最終行を返す（シート開き直すまで）みたい。まぎらわしりーず。

実は今まで頭の悪いことに関数が使えることを知らずに対象RangeをForで総当たりで調べさせていた。 すると1万行程度のデータで20分近くかかっていたが、Findで検索させるようにしたら一回あたり1分もかからなくなった。 他にも.Valueは使わないとか、Sheetは…

ほんとはCase文でLikeつかえたらなとおもっていたのだけど使えないことが発覚したのでIf文でしこしこと。 自分が使う範囲でのものなので必要に応じて訂正してください。っていうか使う人いなさそうだけどｗ Sub Todoufuken_conv_e_j() Dim RanA As Range Dim…

けど、何度か実行しないと削除が完了しない。なんでだろう？ 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…

VBAなんてやらないよ！っておもってたら単純作業の繰り返しには効率的だという事が発覚！ なのでメモっておく。 これはJ2:J6000までの列とK2:K6000までのセル内を結合し、その後K列の内容を削除する。 結合したい対象のセルが違う場合はCells内をいじればよ…