Sub ファイルを開いてコピペするマクロ() Dim saisyosheet As WorksheetSet saisyosheet = ActiveSheet Dim OpenFileName As StringOpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") If OpenFileName <> "False" ThenWorkbooks.…

例ではA1に付けたい名前 A2に保存したいアドレスを入力しています 保存した結果がこちら 最後にコピー元のシートを削除します この時警告文が表示されるのは改善したいけど改善の方法がわからないので我慢してください ちなみに私の本名は長谷川ではありませ…

Sub データの種類調べる() Dim sdata As String'最初データを参照sdata = ActiveCell While sdata = ActiveCell And ActiveCell <> 0ActiveCell.Offset(1, 0).ActivateWendIf ActiveCell <> 0 ThenMsgBox "違うデータが入力されています。確認して削除してく…