Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7487 / 76732 ←次へ | 前へ→

【74832】Re:テキストファイルから貼り付けた結果が違う
発言  kanabun  - 13/9/23(月) 12:54 -

引用なし
パスワード
   ▼3891 さん:

>国語 = 80

> 最初は、
>
>A1="国語" A2= "=" A3="80"
>のように、1行の内容が、スペースで区切られて、
>別々のセルに貼り付けられました。

直前に、「区切り位置」または「外部データの取り込み-テキストファイルの
インポート」メニューなどでテキストファイルウィザードを使われていて、
そのとき、区切り記号を「スペース」に指定していたから、その区切り記号の
設定がそのまま使われて、クリップボードのテキストが スペース区切りで
貼り付いたのでしょう。

Personal.xls の標準モジュールにこんなプロシージャを置いておくと、
区切り記号をデフォルトのTABにリセットすることができます。

Sub 区切りモードのリセット()
 
 With ActiveCell
  If .Text = "" Then
    MsgBox "文字列の入ったセルをアクティブにして実行"
  Else
    .TextToColumns ActiveCell, _
      DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      Tab:=True, _
      Comma:=False, _
      Space:=False, _
      TrailingMinusNumbers:=True, _
      Other:=False
  End If
 End With

End Sub

1 hits

【74831】テキストファイルから貼り付けた結果が違う 3891 13/9/23(月) 9:03 質問
【74832】Re:テキストファイルから貼り付けた結果が... kanabun 13/9/23(月) 12:54 発言
【74833】Re:テキストファイルから貼り付けた結果が... 3891 13/9/23(月) 14:53 発言
【74834】Re:テキストファイルから貼り付けた結果が... kanabun 13/9/23(月) 14:58 発言
【74835】Re:テキストファイルから貼り付けた結果が... 3891 13/9/23(月) 16:55 お礼

7487 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free