OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
締切り
済み

エクセル 行列を入れ替えてオートフィルしたい!

  • 暇なときにでも
  • 質問No.241641
  • 閲覧数2538
  • ありがとう数0
  • 気になる数0
  • 回答数2
  • コメント数0

お礼率 0% (0/4)

出来ないのものでしょうか?
仕事でとてもこまっています。

セルの内容をコピーして【リンク貼り付け】しますよね、セルはA1,A2,A3と連続したデータを横にA1,B2,C3とオートフィルできないでしょうか?

瀬戸際で困り果ててます、宜しくお願いします。
通報する
  • 回答数2
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全2件)

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

リンク貼り付けをした後のマクロを書いてみました。 まず、普通にリンク貼り付けをします。 例えば、シート1のA1:A10をシート2のA1:A10にリンク貼り付けしたとします。 シート2のA1:A10を選択したまま下記のマクロを実行します。斜め右下に下がる方向に式を移動させます。 ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュール ...続きを読む
リンク貼り付けをした後のマクロを書いてみました。

まず、普通にリンク貼り付けをします。
例えば、シート1のA1:A10をシート2のA1:A10にリンク貼り付けしたとします。
シート2のA1:A10を選択したまま下記のマクロを実行します。斜め右下に下がる方向に式を移動させます。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入し、そこに下記コードを貼り付けます。(当方、Excel97です)
ご参考に。

Sub MoveLink()
  Dim rg As Range 'セル
  Dim rw As Long '行カウンタ

  '選択した範囲の算式を複写していく
  For Each rg In Selection
    '選択の2行目から
    If rw >= 1 Then
      '行数と同じだけ横に行ったセルに算式を書く
      rg.Offset(0, rw).Formula = rg.Formula
      '元のセルを消去する
      rg.ClearContents
    End If

    rw = rw + 1 '行を進める
  Next
End Sub

  • 回答No.2
レベル14

ベストアンサー率 46% (1678/3631)

データを横にA1,B2,C3とオートフィルできないでしょうか?>  A1,B1,C1 ならば、「形式を選択して貼り付け」→「行列を入れ替える」でいいんですが。
データを横にA1,B2,C3とオートフィルできないでしょうか?>
 A1,B1,C1 ならば、「形式を選択して貼り付け」→「行列を入れ替える」でいいんですが。
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ