Sub 行の一番最後プラス1へ() ' ' 行の一番最後＋１へ ' Range("A1").Select Selection.End(xlDown).Offset(1, 0).Select End Sub…

Sub アクティブセルの選択と別シートへのコピー() ' ' アクティブセルの選択と別シートへのコピー ' Sheets("コピー元シート名").Select Range("A1").Select Selection.CurrentRegion.Select Selection.Copy Sheet…

Sub 見出し行目を削除する() ' サンプル1見出し行目を削除する Range("A1").EntireRow.Delete End Sub…

Sub 条件の合った行を削除する() 'サンプル1 条件の合った行を削除する ' 変数宣言（a の部分は、同じマクロ内で使用できないので、使用する場合は変更する） Dim a As Long ' A列の一番下のデータから上方向に向かってループを回して For a = Range("A1").End(…

旧価格を新価格で置き換える。 #!/bin/sh cp -f /home/xxxxxx/www/ドメイン/renew/price.html /home/xxxxxx/www/ドメイン/price.html cpスペース-fスペース絶対パス（コピー元）スペース絶対パス（コピー先） を、renew.sh…

https://www.relief.jp/docs/excel-vba-delete-rows-with-conditions.htmlから引用 都道府県が「東京」「東京都」「大阪」「大阪府」の行を削除するマクロです。 なお、A列の姓は必ず何らかのデータが入っているものとします。 Sub 条件に一…

旅行を久々に再開したのがグアム 2011/10/21〜2011/10/24　３泊４日の旅 気が向いたら追記しよう。 2019.07.14　追記　なんと写真がない！　と思ったら、別のケースで保管してました。 久々の海外なので、前日から予習！ 航空券は、マイルの特典だったので、部屋を奮発（ヒルトングアム…

骨盤が歪んでた。立ち仕事であまりにも疲れるので、靴を買いに行ったら判明。オーダーインソールと靴を2セット買ったら嫁も欲しがり12万円の散財。…