FC2ブログ

空白抜きの文字列をコピーする

2017–08–07 (Mon) 23:51
「資 格 証 一 覧」→「資格証一覧」でコピーしてくれます。

Sub kuhakunuki()
moji = Replace(Selection.Value, " ", "")
moji = Replace(Selection.Value, " ", "")
With New MSForms.DataObject
.SetText moji '変数の値をDataObjectに格納する
.PutInClipboard 'DataObjectのデータをクリップボードに格納する
End With
End Sub

使いやすい~~~。
一覧表とか、まとめシートとかで使っていますb

Sub NameDel()
Dim nm As Name
 For Each nm In ActiveWorkbook.Names
  If InStr(nm.Name, "Print_Area") = 0 Then
   nm.Delete
  End If
 Next
End Sub
ついでに、名前(印刷範囲以外)を削除する物も作成しましたb
エクセルマクロは色々と出来ますね。
スポンサーサイト



« 深夜の妄想用……2 | HOME |  全てコピー貼付をさらに修正 »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク