EXCELの「形式を選択して貼り付け」→「テキスト」という作業をショートカットで出来ないの？:アルファルファモザイクより。 Sub 値で貼り付け() Selection.PasteSpecial Paste:=xlPasteValues End Sub

次の2つのFunctionを組み合わせれば良い。 ' 指定の名前のワークシートが存在するかどうか Function isExistingSheetName(sheetname As String) As Boolean Dim ws As Worksheet Dim flag As Boolean '現在のシートを記憶 Set recentSheet = ActiveSheet For…

Excelの行の高さは、いちど手動で調整してしまうとその後自動調整が効かなくなる。そして、少なくともオレが使っているExcel2000では、行の高さを自動調整に戻す方法が見つからない。 現在のシートのすべての行の高さを「自動調整」に戻す このVBAマクロを登…