みなさん、こんにちは。
エクセルの使い方についての質問があります。
よろしくお願いしますm(__)m

私はいろいろなサイトのURLや情報を
エクセルにまとめて管理する事が多いのですが、
ハイパーリンクがあるテキストや太字・大文字のテキストを
ウェブページからコピーしてエクセルに貼り付けると、
文字が巨大になってセルが大きくなる・太字になる、
ハイパーリンクを必要としていないのに付いてしまう....

という状態になりますので、不便に感じています。

現在は、右クリックして「形式を選択して貼り付け(S)」を選び、
その中から、「貼り付ける形式(A)」の「テキスト」を選択してペーストしています。

上記の作業をとても面倒に感じていて、

「ハイパーリンクも太字も大文字もいらないから、テキストの文字情報だけを、セルの基本設定のフォントサイズで簡単にペーストしたい!」

という感じです。

こういった場合に有効な設定などはありますでしょうか?
ご存知の方がいらっしゃいましたら、ご教授いただけたら助かります。

よろしくお願いしますm(__)m

このQ&Aに関連する最新のQ&A

A 回答 (4件)

「編集」→「形式を選択して貼り付け」→「テキスト」の操作をマクロにしてショートカットキーを割り当てておけば、今よりは楽になると思います



「HPの適当な範囲を選択してコピー」→「エクセル画面を開く」→「ツール」→「マクロ」→「新しいマクロの記録」を選択します

「マクロの記録」画面でショートカットキーに任意の英文字を指定して、保存先は「個人用マクロブック」にします。(個人用マクロブックに登録すると、どのブックを開いたときでもそのマクロが利用できます。それが困るなら「作業中のブック」にすればブックを限定できます)

続けて「編集」→「形式を選択して貼り付け」→「テキスト」→「ツール」→「マクロ」→「マクロの記録終了」でできあがりです。こんなマクロが個人用マクロブックに記録されます

Sub Macro1()
ActiveSheet.PasteSpecial Format:="テキスト", Link:=False, _
DisplayAsIcon:=False
End Sub

あとはHPのコピーをしてエクセルのシートで「Ctrl+指定した英文字」を押してみてください。

この回答への補足

ご回答ありがとうございました!
こちらの方法、とても参考になりました。
今後の仕事に生かしたいと思います。
ありがとうございましたm(__)m

補足日時:2008/02/14 10:05
    • good
    • 0

もう解決しているかもしれませんが私は



1.必要な箇所を選択&コピー
2.エクセルのセルをダブルクリックまたは[F2]キーを押して入力待ち状態にする。
3.[ctrl]+[c]等で貼り付け

の順で貼り付けています。
2番目を省くとハイパーリンク等の情報が付加されますが、上記の手順だとテキストのみが貼り付けられフォントはエクセルの設定になります。
    • good
    • 0
この回答へのお礼

ご投稿ありがとうございました!
こんな技もあったのですね!
場面に応じてはこちらが良さそうです。
ありがとうございましたm(__)m

お礼日時:2008/02/14 10:02

基本的には


コピーーー>値(テキスト)+書式+数式(エクセル)などを移す。
      ただし画像などもあって一筋縄では行かないが、まず考え      ることはこうである
貼り付けーー>上記属性を全て貼り付ける。
ーー
であれば値以外の属性は移さない方法はないのか、となるでしょう。
すると、形式を選択して張り付け
テキスト張り付け
などが思い浮かぶでしょう。
基本的なこと。

この回答への補足

ご投稿ありがとうございましたm(__)m
私もそちらを試してみました~

補足日時:2008/02/14 10:03
    • good
    • 0

こんにちは。



>「ハイパーリンクも太字も大文字もいらないから、テキストの文字情報だけを、セルの基本設定のフォントサイズで簡単にペーストしたい!」

それは、自動化も出来るのですが、クリップボードの内容から判定する特殊なマクロのコードで、とても、そのようなコードを管理できる人でなければお勧め出来ないのです。通常は、メモ帳などを立ち上げておいて、そこに一旦吐き出して、それをコピーしてExcel等に貼り付ける、という作業をしてしまいます。

この回答への補足

ご回答ありがとうございましたm(__)m
作業が少ないときは、いまだに私もこちらの方法を使わせてもらっています。
ありがとうございました~m(__)m

補足日時:2008/02/14 10:02
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセル プルダウンの作り方

お世話になります。
エクセルでプルダウンの作り方を教えていただけませんでしょうか?
住所を▼のボタンでクリックしたら【北海道,青森,秋田,岩手・・・】などの選択ができるようにしたいのです。
宜しくお願いします。

Aベストアンサー

メニューから「データ」、「入力規則」、「設定」で「入力値の種類」を「リスト」を選択します。
そうすると「元の値」という表示がでますので、そこで前もって作っておいたリストの範囲を指定します。
多くないのでしたら、そのままそこにカンマで区切って入力しても出来ます。

Qエクセルに、改行した文章をペーストすると、行の幅が広がります。幅の固定方法を教えてください

エクセル2003を使っています。
セルに、改行のある文章をペーストすると、行の幅が広がってしまいます。

幅が広がらないようにするにはどうしたらいいでしょうか?
下記の方法でやってみましたがだめでした。

1.Ctrl+Aですべてのセルを選択。
2.右クリックメニュー[セルの書式設定]>タブ[保護]で、チェックボックス[ロック]のチェックを解除。
3.[ツール]>[シートの保護]を選択しチェックボックス[列の書式設定]と[行の書式設定]のみをOFF

Aベストアンサー

貼り付け先のSheet状況によって方法は変わります。
①どちらも、表のみのSheetなら、Sheetのコピー
シート見出しで右クリックし、「移動またはコピー」→「コピーを作成する」にチェックし、挿入先を指定。
既存のシートに貼り付けなら、Ctrl+Aでシート全体をコピー。
貼り付け先のシートで、やはり、Ctrl+Aでシート全体を選択して貼り付け。
②シート内の表のみ範囲選択しての貼り付け。
別シートに形式を選択して貼り付け→列幅→OK→そのまま続けて、右クリックから「貼り付け」
行の高さも同じにするには、対象となる表の行番号を範囲選択してコピー。
貼り付け先の行番号を範囲選択して、形式を選択して貼り付け→「書式」にチェックしてOK。
③コピーした表と貼り付け先のセル幅や行の高さが違うものに、コピー元と同じ幅や高さで貼り付けたい場合。
元の表をコピーし、貼り付け先で、Shiftを押しながら、編集→図の貼り付け。
貼りついた図の書式設定を開いて、色と線タブで「塗りつぶしの色」を「自動」にする。

以上、用途に応じ使い分けてください。

貼り付け先のSheet状況によって方法は変わります。
①どちらも、表のみのSheetなら、Sheetのコピー
シート見出しで右クリックし、「移動またはコピー」→「コピーを作成する」にチェックし、挿入先を指定。
既存のシートに貼り付けなら、Ctrl+Aでシート全体をコピー。
貼り付け先のシートで、やはり、Ctrl+Aでシート全体を選択して貼り付け。
②シート内の表のみ範囲選択しての貼り付け。
別シートに形式を選択して貼り付け→列幅→OK→そのまま続けて、右クリックから「貼り付け」
行の高さも同じにするには、対...続きを読む

Qエクセルでプルダウンメニューの作り方

  エクセルの画面で、よく三角形を逆さまにした形をクリックするといくつかメニューが出てき、どれかを選べるようになっていますが、その作り方を教えてください。
 会社で人事を担当していますが、三角形(プルダウンボタン)をクリックすると社員氏名一覧が表示され、そこから選択できるようにしたいのです。
 しばらく自力でいろいろやってみましたが、さっぱり見当がつかず、どうやればいいのか分かりませんでした。よろしくお願いします。

Aベストアンサー

こんばんは!
当方使用のExcel2003での一例です!

↓の画像のようにSheet2に名簿表を作成しておきます。
画像ではSheet2のA2セル以降を範囲指定 → 名前ボックスに仮に「名簿」と入力しOK
これで範囲指定したセルが「名簿」と名前定義されましたので、

Sheet1のリスト表示させたいセルを範囲指定 → メニュー → データ → 入力規則
→ リスト → 「元の値」の欄に
=名簿
としてOK

これでSheet1のセルをアクティブにすると右側に下向き▼が表示されますので、そこをクリック!
これで希望に近い形にならないでしょうか?
Excel2007の場合は↓のURLが参考になるかもしれません。

http://www.eurus.dti.ne.jp/~yoneyama/Excel2007/excel2007-ny_kis2.html

尚、同一Sheetに「名簿表」を作成する場合は名前定義する必要はなくて
「元の値」の右側の四角をクリックし、リスト表示したいセルをそのまま範囲指定すればOKです。

以上、お役に立てば良いのですが・・・m(_ _)m

こんばんは!
当方使用のExcel2003での一例です!

↓の画像のようにSheet2に名簿表を作成しておきます。
画像ではSheet2のA2セル以降を範囲指定 → 名前ボックスに仮に「名簿」と入力しOK
これで範囲指定したセルが「名簿」と名前定義されましたので、

Sheet1のリスト表示させたいセルを範囲指定 → メニュー → データ → 入力規則
→ リスト → 「元の値」の欄に
=名簿
としてOK

これでSheet1のセルをアクティブにすると右側に下向き▼が表示されますので、そこをクリック!
これで希望に近い形にならない...続きを読む

Qエクセル上でのコピペのとき逆からペーストしたい

エクセル上での作業で縦に並んだ数値を一つ飛ばしに選択してほかの場所へペーストする際、行と列を入れ替えて横にペーストしたい。(ここまでは出来ます)さらにそのペーストする際通常の左からではなく右から左へ向かってペーストする方法はありますか?
一度通常通りペーストしてから左右逆にする作業をやらなければならないでしょうか?一度に出来れば助かるのですが。

Aベストアンサー

A1B1C1D1
A2B2C2D2
A3B3C3D3
A4B4C4D4
A5B5C5D5
↑こうあるものを、

A5A4A3A2A1
B5B4B3B2B1
C5C4C3C2C1
D5D4D3D2D1
↑こうしたい、ということでよろしいでしょうか?

あまり一般的な処理ではないので、一発でやるのは難しいですね。

元の表の範囲がA1:D5,貼り付け先の右上隅のセルがJ1とすると、

 J1:=INDEX($A$1:$D$5,ABS(COLUMN()-COLUMN($J$1))+1,ABS(ROW()-ROW($J$1))+1)

として左方,下方にフィルすればご要望の通り並べ替えられます。
あとは、コピー⇒値貼り付けで確定すればOK。
(Excel2003で動作確認済)

Qエクセル(Excel) 納品書の作り方【画像修正版

昨日http://oshiete.goo.ne.jp/qa/7348426.htmlで質問させていただき、詳しくご回答いただき少し進んだのですが、状況が変わったので改めて質問させていただきます。

■エクセル(Excel)で納品書の作成をしています。
シート1に納品書、シート2に商品マスタ(一覧)を作っていて、シート2の一覧を反映させて
納品書に番号を打ち込むだけで、商品名・単価までが出るシステムを作りたいのですが、
昨日のご回答の中の「VLOOKUP」?を入れて、自分なりにマス目の数字を変えてやってみたのですが
反映されずN/?のようなエラーになってしまいます。

※画像が見にくかったのでシート<CENTER></CENTER>だけにしました。

1、上記のように、シート2との関連付けの係数を、写真の場合の数字で教えてください。

2、合計と、合計から20%を引いた数値を割り出す関数も、写真の数字で御願いします。

宜しくご教授お願い致します。

Aベストアンサー

こんばんは!
前回投稿した者です。

当方もかなり古い(人間も古い!なぁ~んちゃって!)Excel2003を使用しています。
↓の画像のようにSheet2にデータを作成しておきます。

#N/A というエラーは、「検索値」がない!ということですので
お示しの画像のB列にSheet2のA列にないデータを入力するとそういったエラーが表示されます。

画像のセル配置ですと
C4セルに
=IF($B4="","",VLOOKUP($B4,Sheet2!$A:$C,COLUMN(B1),0))
(「$」マークの位置に気を付けてください)
という数式を入れD4セルまでオートフィルでコピー!
そのまま最後の24行目までコピーしておきます。

F4セルには
=IF(COUNTBLANK(B4:E4),"",D4*E4)
という数式を入れ、F24までオートフィルでコピー!

これでB列に商品番号を入力すればSheet2のデータが反映され、
E列に数量を入力でF列に金額が表示されると思います。

最後に合計金額のF26セルは
=IF(COUNT(F4:F24),SUM(F4:F24),"")
手数料のF27セルは
=IF(F26="","",F26*0.2)

これで何とか形にならないでしょうか?

※ 振込金額の欄は不明ですので手を付けていません。

参考になりますかね?m(_ _)m

こんばんは!
前回投稿した者です。

当方もかなり古い(人間も古い!なぁ~んちゃって!)Excel2003を使用しています。
↓の画像のようにSheet2にデータを作成しておきます。

#N/A というエラーは、「検索値」がない!ということですので
お示しの画像のB列にSheet2のA列にないデータを入力するとそういったエラーが表示されます。

画像のセル配置ですと
C4セルに
=IF($B4="","",VLOOKUP($B4,Sheet2!$A:$C,COLUMN(B1),0))
(「$」マークの位置に気を付けてください)
という数式を入れD4セルまでオートフィルで...続きを読む

QHP上のデータをエクセルにペーストしたいとき

バージョンはエクセル2002です。HP上の表をドラッグして選択コピーし、エクセルにそのままペーストしたら文字データだけでなく、フォームボタンやテキストボックスも一緒にペーストされて、編集も消すこともできません。
どうやってボタンなどを消すのでしょうか。また、どうすれば文字データだけペーストできるのでしょう。WEBクエリで外部データを取り込む以外にもっと単純な設定や方法はないのでしょうか。
エクセル98では普通にコピーペーストで文字だけペーストされました。
よろしくお願いします。

Aベストアンサー

Office製品で言うと2000シリーズ以降となりますが、
このころからインターネット、特にウェブが爆発的に増え、
あらゆるアプリケーションがHTMLなどに対応していきました。

HTMLでの保存機能が強化され、Excelなどで作成した書類も
見た目に近い状態でHTMLの知識無くページが作成できるように
なりました。当然、データを取り込む場合も、見たままExcel
書類にできるようになったわけです。

ただし、おっしゃるとおり、データだけ欲しいという観点から
考えると、不便になったように思えるかもしれません。しかし、
これはMS-Office全般に共通ですので、覚えておくと便利だと思います。

Qエクセル(Excel) 納品書の作り方【改めて】

昨日http://oshiete.goo.ne.jp/qa/7348426.htmlで質問させていただき、詳しくご回答いただき少し進んだのですが、状況が変わったので改めて質問させていただきます。

■エクセル(Excel)で納品書の作成をしています。
シート1に納品書、シート2に商品マスタ(一覧)を作っていて、シート2の一覧を反映させて
納品書に番号を打ち込むだけで、商品名・単価までが出るシステムを作りたいのですが、
昨日のご回答の中の「VLOOKUP」?を入れて、自分なりにマス目の数字を変えてやってみたのですが
反映されずN/?のようなエラーになってしまいます。

※画像が貼り付けてあります。商品名は1番以外伏せさせていただいています。
くっつけてありますが、左側がシート1・右側がシート2です。

1、上記のように、シート2との関連付けの係数を、写真の場合の数字で教えてください。

2、合計と、合計から20%を引いた数値を割り出す関数も、写真の数字で御願いします。

宜しくご教授お願い致します。

Aベストアンサー

画像がいまいちよく見えないのですが、納品書の項目は左から、No、商品番号、商品名、単価、数量、金額でいいのでしょうか(名前は多少違っていても意味があっていればもんだいないです)

でしたら、
C1セルに=IF(ISBLANK(B2),"",VLOOKUP(B2,Sheet2!$A$2:$C$200,2,FALSE))
D1セルに=IF(ISBLANK(B2),"",VLOOKUP(B2,Sheet2!$A$2:$C$200,3,FALSE))
E1セルは空白で
F1セルに=IF(D2="","",D2*E2)
といれて、C1からF1までをコピーしてその下の行にタテに貼り付ければ出来ますよ。
おそらくエラーが出たのは、コピーしたときにVLOOKUP関数の最初のセルの指定がずれてしまっているのでは無いかと思いますよ。     

Qエクセル マクロボタンを使用し指定した表をコピーペーストする方法

マクロを使用した際に新規でシートを作りそこに新たに表を張り付けるって可能なのでしょうか

可能でしたらマクロボタンを使用し指定した表をコピーし別シートに張り付ける方法を
教えてほしいです。

表の頭はA3から始まります。

もし、可能な場合コピーする際にコピー元の表の計算式はやはり反映された状態になるのでしょうか?

よろしくお願いします。

Aベストアンサー

こんな感じでどうでしょう。

Sheets("Sheet1").Range("A3").CurrentRegion.Cells.Copy
Sheets("もともとあるシート名").Range("A3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

もし、「もともとあるシート」の方が広い範囲を使っていて、今回コピーする範囲の方が小さい場合、はみ出した部分が残ってしまいます。事前に「もともとあるシート」の内容をクリアしておいた方が良いかもしれません。

Sheets("もともとあるシート名").Cells.Clear

Qエクセル2007でプルダウンで選んだものに反応

Excel2007でプルダウンで選んだものに反応して隣のセルが自動入力される方法(エクセル2007)
A1をプルダウンで「猫」「犬」から選べるようにし、「猫」を選んだ場合B1に自動に「111」が、「犬」を選んだ場合B1に自動に「222」と入力されるようにしたいです。
ご教授の程、宜しくお願いします。

Aベストアンサー

VLOOKUP関数での方法です。
(1)別シートに入力文字列と対応コード表を作成。(仮にSheet2のA:B列範囲で順不同)
(2)B1に=IF(COUNTIF(Sheet2!A:A,A1),VLOOKUP(A1,Sheet2!A:B,2FALSE),"")を設定
   入力文字列が存在しない場合は空白としています。

Qマクロを使って不特定のファイルからコピー&ペーストしたい(エクセル)

エクセルのデータの必要な列を別のブックに入っているフォーマットにどんどん追加していけるようなマクロを作りたいと思っています。
マクロの自動記録を使ってみたのですが、特定のファイル名が入っているので、使えません。
中を見てみると

Windows("A.xls").Activate
Columns("b:b").select
Selection.copy
workbooks.open Filename:="B.xls"
Windows("B.xls").Activate
Range("D9").select
Windows("A.xls").Activate
Application.CutCopyMode = False
Range("b:b").select
Selection.copy
Windows("B.xls").Activate
Selection.Pastespecial Paste:=xlValues,Operation:=xlNone,SkipBlanks:=False,Transpose:=False
.
.
.
となっています。
このファイルAとなっている部分を、どのファイルでも実行できるようにしたいです。
後、ファイルBに貼り付けるときに一番最終行に追加していくにはどのような構文を足せばいいか教えていただきたいです。
初心者で質問の意図が伝わりにくかったらすみません..
よろしくお願いします。

エクセルのデータの必要な列を別のブックに入っているフォーマットにどんどん追加していけるようなマクロを作りたいと思っています。
マクロの自動記録を使ってみたのですが、特定のファイル名が入っているので、使えません。
中を見てみると

Windows("A.xls").Activate
Columns("b:b").select
Selection.copy
workbooks.open Filename:="B.xls"
Windows("B.xls").Activate
Range("D9").select
Windows("A.xls").Activate
Application.CutCopyMode = False
Range("b:b").select
Selection.copy
Win...続きを読む

Aベストアンサー

選択されているセルの列をB.XLSの最終列の右にコピーするマクロです。ブックのパスと、シート名は修正して下さい。

Sub Macro1()
Dim wb As Workbook, psw As Boolean
Selection.EntireColumn.Copy
For Each wb In Workbooks
If wb.Name = "B.xls" Then
psw = True
Exit For
End If
Next wb
If Not psw Then
Workbooks.Open Filename:="z:\B.xls" 'パス名を修正
End If
Windows("B.xls").Activate
Worksheets("Sheet1").Activate 'シート名を修正
ActiveSheet.Range("IV1").End(xlToLeft).Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

ペーストするシートに全く何も入力されていないときでも2列目に貼りつけます。どうしても1列目に貼りつけたいなら.End(xlToLeft)で取得したセルの値で条件分岐するなどして下さい。

選択されているセルの列をB.XLSの最終列の右にコピーするマクロです。ブックのパスと、シート名は修正して下さい。

Sub Macro1()
Dim wb As Workbook, psw As Boolean
Selection.EntireColumn.Copy
For Each wb In Workbooks
If wb.Name = "B.xls" Then
psw = True
Exit For
End If
Next wb
If Not psw Then
Workbooks.Open Filename:="z:\B.xls" 'パス名を修正
End If
Windows("B.xls").Activate
Worksheets("Shee...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報