エクセルの質問です。

エクセルでコピーしたものを貼り付けると通常は縦ですが横に貼り付けたいのですがやり方を教えてください。よろしくお願いします。
E-mailの一括変換。e-mailをクリックするとアウトルックがでてきて処理できる状況にすることができるようになるやり方。(以前はアドインなどを入れてみたんですがハイパーリンクは付いたのですがアウトルックのほうとの連携をうまくする事ができませんでした。)
最後にファイル名や番号などを指定した範囲内で連続してエクセルが数を表記してくれるやり方(マクロ、プログラム!?よくわかりません。。。。)を探しています。例えばA3~C6までの範囲を選択してその中にあるA3の最初の名前がA0001.jpgとすれば順番にA0002.jpg,A0003jpgとA6のところまで行ったら次はB3のところに自動的に行ってA0004.jpgというようにC6(A0009.jpg)までズラーッと一気に書いてくれるプログラムのようなものを探しています。
やり方など参考になるページやそういったものが既にある場合はこの3つの中のどれでもよろしいですのでどうぞ教えてください。
よろしくお願いいたします。

回答の条件
  • 1人2回まで
  • 登録:2007/07/04 05:22:32
  • 終了:2007/07/11 05:25:03

回答(6件)

id:virtual No.1

virtual回答回数1139ベストアンサー獲得回数1282007/07/04 06:09:30

ポイント19pt

エクセルでコピーしたものを貼り付けると通常は縦ですが横に貼り付けたいのですがやり方を教えてください。

  1. コピーする範囲を選んで、右クリック(又は「編集」)、コピー。
  2. 貼り付ける場所の一番左上のセルを選んで、右クリック(又は「編集」)、形式を選択して貼り付け、「行列を入れ替える」にチェック、OK。

というようなことでいいでしょうか?

id:aiomock

ありがとうございます。実際にやってみます。

2007/07/04 11:10:20
id:kaiton No.2

kaiton回答回数260ベストアンサー獲得回数342007/07/04 08:53:54

ポイント19pt
  • 横に貼り付け

コピーして[編集]・[形式を選択して貼り付け]で[行列を入れ替える]にチェックでOK


  • E-Mailのハイパーリンク

これであっているのか?

エクセルがメールアドレスと認識したものは、自動でハイパーリンクになると思います。

そのハイパーリンクで起動するソフトは、通常ならInternetExplorerの[ツール]・[インターネットオプション]の「プログラム」タブの電子メールで指定したプログラムです。


  • 連続のデータ

関数なら

A1 ="A"&TEXT((COLUMN()-1)*3+ROW(),"000")&".JPG"

これを縦横にコピーしてください。

COLUMN関数は列の位置を、ROW関数は行の位置を表す関数です。

そして、TEXT関数で数字3桁にしています。


ただ、9個のセルぐらいなら私はA1に A001.jpg B1に A004.jpg といれてフィルをつかって操作します。

http://www.excel-jiten.net/data_entry_edit/concective_data.html

http://www.eurus.dti.ne.jp/~yoneyama/Excel/nyumon/seiseki/sei-n0...

あたりを参考に

A1:B1を選択し、B1セル右下のフィルハンドル(黒十字カーソル)をC1へ、これでC1にA004.jpgとなる。

今度は、A1の右下のフィルハンドルをA3まで、これでA003.jpgまで

B1セルの右下のフィルハンドルでダブルクリック、C1セルのフィルハンドルでもダブルクリック

手抜き(もっと操作の早い)の方法は他にあるかもしれませんが...

id:aiomock

いろいろ参考になります。ありがとうございます。後9個とありましたがこれが大体1000個ぐらいだったらどのようにすれば効率がよろしいか教えてください。よろしくお願いいたします。

2007/07/04 11:14:34
id:SALINGER No.3

SALINGER回答回数3454ベストアンサー獲得回数9692007/07/04 09:54:45

ポイント18pt

>エクセルでコピーしたものを貼り付けると通常は縦ですが横に貼り付けたいのですがやり方を教えてください。

貼り付けるときに形式を選択して貼り付けから行列を入れ替えるでは駄目でしょうか。


連番の方ですが、マクロで一括で連番を入れるコードも書こうと思えば書けますがExcelの機能でできることはExcelで。

連番を入れる左上の4つのセルにこのように入れて、4つのセルを選択して右下でカーソルが十字になるようにしてドラッグします。

A0001.jpg A0002.jpg
A0004.jpg A0005.jpg
id:aiomock

理解できました。ありがとうございます。

2007/07/04 11:42:17
id:hiko3karasu No.4

hiko3karasu回答回数1058ベストアンサー獲得回数252007/07/04 11:40:15

ポイント18pt

連番のやりかた

 

A3にA0001.jpgを入れます。A3を選択して

右下でカーソルが十字になるようにしてA10までドラッグします。

A0001.jpg

A0002.jpg

A0003.jpg

A0004.jpg

A0005.jpg

A0006.jpg

A0007.jpg

A0008.jpg

 

A7からA10を選んでB3に移動

A0001.jpg  A0005.jpg

A0002.jpg  A0006.jpg

A0003.jpg  A0007.jpg

A0004.jpg  A0008.jpg

 

A3-B6を選択して

右下でカーソルが十字になるようにして好きなだけ横にドラッグします。

A0001.jpg A0005.jpg A0009.jpg A0013.jpg ・・・・・・

A0002.jpg  A0006.jpg A0010.jpg A0014.jpg ・・・・・・

A0003.jpg  A0007.jpg A0011.jpg A0015.jpg ・・・・・・

A0004.jpg  A0008.jpg A0012.jpg A0016.jpg ・・・・・・

id:aiomock

理解できました。ありがとうございます。

2007/07/04 11:43:30
id:SALINGER No.5

SALINGER回答回数3454ベストアンサー獲得回数9692007/07/04 12:38:22

ポイント18pt

私のは縦横間違ってましたね。

一括して4桁の連番を入れるマクロです。

先に入れる場所の左上のセルにA0001.jpgやABC1234.txtなど入れて、連番を入れる範囲を選択して次のマクロを実行させてください。

Sub renban()
    Dim p1 As Long
    Dim p2 As Long
    Dim i As Long
    Dim j As Long
    Dim str1 As String
    Dim str2 As String
    Dim str3 As String
    Dim sRow As Long
    Dim sColumn As Long
    Dim sRows As Long
    Dim sColumns As Long
    Dim count As Long
    
    sRow = Selection.Row
    sColumn = Selection.Column
    sRows = Selection.Rows.count
    sColumns = Selection.Columns.count
    
    str1 = Cells(sRow, sColumn).Value
    
    p2 = InStrRev(str1, ".")
    For p1 = p2 - 1 To 1 Step -1
        If IsNumeric(Mid(str1, p1, 1)) = False Then
            p1 = p1 + 1
            Exit For
        End If
    Next p1
    
    count = 0
    For i = 0 To sColumns - 1
        For j = 0 To sRows - 1
            str3 = Format(Val(Mid(str1, p1, p2 - p1)) + count, "0000")
            Cells(sRow + j, sColumn + i).Value = Left(str1, p1 - 1) & str3 & Right(str1, Len(str1) - p2 + 1)
            count = count + 1
        Next j
    Next i
End Sub
id:aiomock

マクロまでありがとうございます。

やってみたいと思います。

ありがとうございました。

2007/07/05 00:11:47
id:kaiton No.6

kaiton回答回数260ベストアンサー獲得回数342007/07/04 13:28:00

ポイント18pt

フィルを使う方法がSALINGERさんから補足されていますが、1000個程度でも私はフィルを使います。


一応、関数を使う方法の補足・訂正です。

1回目の解答の訂正と補足

  • 先の式では3桁でしたが4桁にするには "000"の部分を"0000"にしてみてください。
  • 行数を増やすには、*3 の部分を *20 とかして、20行目まで式をコピーして横にも適宜コピーください。
  • なお、この状態では式で保持されているので、実際の値にしたいときは、コピーして形式を選択して貼り付けで「値」にチェックで貼り付けてください。


それと、参考まで時間があるときに確認していたく程度の情報ということで、関数での動きを高機能にしてみると


A1:A 連番部分の前の文字

B1:50 縦の行数

C1:20 横の列数

D1:4 連番部分の桁数

E1:.jpg 後の文字

と入力します。(適宜変えてみてください)

A2 =IF(AND(ROW()-1<=$B$1,COLUMN()<=$C$1),$A$1&TEXT((COLUMN()-1)*$B$1+ROW()-1,REPT("0",$D$1))&$E$1,"")

この式を少し広めに下や右にコピーします。

あとは、範囲を選択しコピーして、貼り付けしたい箇所で「形式を選択して貼り付け」の「値」にチェックでOK

id:aiomock

非常に参考になります。ありがとうございます。

2007/07/05 00:13:24

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません