none
開いていないブックの縦データを別ブックに横データで貼り付けたい。 RRS feed

  • 質問

  •  Sub test()
     With Range("A1:A30")
     .Formula = "='C:\Users\Owner\Documents\[test.xlsx]Sheet1'!A1"
     .Value = .Value
     End With
     End Sub

    上記のコードは開いていないブックの縦に連続したデータをコピーして別ブックのシートに縦そのまま貼り付ける方法ですが、縦のデータを横に貼り付けることは可能でしょうか?


    • 編集済み kuro1962 2016年6月3日 5:12
    2016年6月3日 5:09

回答

  • 以下が参考になりませんでしょうか?

    表の行と列を入れ替える
    http://kokodane.com/mini_macro10.htm


    ★良い回答には回答済みマークを付けよう! MVP - .NET  http://d.hatena.ne.jp/trapemiya/

    • 回答としてマーク kuro1962 2016年6月9日 8:12
    2016年6月3日 5:19
    モデレータ
  • 早速、実行してみましたが、全く参考にはなりませんでした。

    あくまでも下記のコードを活かして、導入できたらと思いますが、どうでしょうか?

    Sub test()
     With Range("A1:A30")
     .Formula = "='C:\Users\Owner\Documents\[test.xlsx]Sheet1'!A1"
     .Value = .Value
     End With
     End Sub
    • 編集済み kuro1962 2016年6月6日 5:25
    • 回答としてマーク kuro1962 2016年6月9日 8:12
    2016年6月6日 5:24
  • どのように実現されたいのでしょうか?
    例えば私が上で紹介したコードを参考にして、以下のようにするのはいかがでしょうか?

    Sub test() With Range("A1:A30") .Formula = "='C:\Users\Owner\Documents\[test.xlsx]Sheet1'!A1"
    .Value = .Value End With Range("A1:A30").Select Selection.Copy Range("A31").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Rows("1:30").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp End Sub



    ★良い回答には回答済みマークを付けよう! MVP - .NET  http://d.hatena.ne.jp/trapemiya/

    • 回答としてマーク kuro1962 2016年6月7日 5:23
    • 回答としてマークされていない kuro1962 2016年6月8日 6:18
    • 回答としてマーク kuro1962 2016年6月9日 8:11
    2016年6月6日 6:04
    モデレータ
  • 縦に連続しているデータを横に連続して貼り付けたいのですが、どうでしょうか?
    • 回答としてマーク kuro1962 2016年6月9日 8:12
    2016年6月8日 6:21
  • 最初のご質問も、結果的に縦に連続しているデータを横に連続して貼り付けることになりますが、実現されたいことがよくわかりませんので、もう少し詳しく教えて下さい。

    ★良い回答には回答済みマークを付けよう! MVP - .NET  http://d.hatena.ne.jp/trapemiya/

    • 回答としてマーク kuro1962 2016年6月9日 8:12
    2016年6月8日 7:07
    モデレータ
  • お騒がせして、申し訳ございませんでした。

    大体実行してみたら、意味がわかってきました。

    改めて回答ありがとうございました。

    • 回答としてマーク kuro1962 2016年6月9日 8:12
    2016年6月9日 8:11

すべての返信

  • 以下が参考になりませんでしょうか?

    表の行と列を入れ替える
    http://kokodane.com/mini_macro10.htm


    ★良い回答には回答済みマークを付けよう! MVP - .NET  http://d.hatena.ne.jp/trapemiya/

    • 回答としてマーク kuro1962 2016年6月9日 8:12
    2016年6月3日 5:19
    モデレータ
  • 早速、実行してみましたが、全く参考にはなりませんでした。

    あくまでも下記のコードを活かして、導入できたらと思いますが、どうでしょうか?

    Sub test()
     With Range("A1:A30")
     .Formula = "='C:\Users\Owner\Documents\[test.xlsx]Sheet1'!A1"
     .Value = .Value
     End With
     End Sub
    • 編集済み kuro1962 2016年6月6日 5:25
    • 回答としてマーク kuro1962 2016年6月9日 8:12
    2016年6月6日 5:24
  • どのように実現されたいのでしょうか?
    例えば私が上で紹介したコードを参考にして、以下のようにするのはいかがでしょうか?

    Sub test() With Range("A1:A30") .Formula = "='C:\Users\Owner\Documents\[test.xlsx]Sheet1'!A1"
    .Value = .Value End With Range("A1:A30").Select Selection.Copy Range("A31").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Rows("1:30").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp End Sub



    ★良い回答には回答済みマークを付けよう! MVP - .NET  http://d.hatena.ne.jp/trapemiya/

    • 回答としてマーク kuro1962 2016年6月7日 5:23
    • 回答としてマークされていない kuro1962 2016年6月8日 6:18
    • 回答としてマーク kuro1962 2016年6月9日 8:11
    2016年6月6日 6:04
    モデレータ
  • 縦に連続しているデータを横に連続して貼り付けたいのですが、どうでしょうか?
    • 回答としてマーク kuro1962 2016年6月9日 8:12
    2016年6月8日 6:21
  • 最初のご質問も、結果的に縦に連続しているデータを横に連続して貼り付けることになりますが、実現されたいことがよくわかりませんので、もう少し詳しく教えて下さい。

    ★良い回答には回答済みマークを付けよう! MVP - .NET  http://d.hatena.ne.jp/trapemiya/

    • 回答としてマーク kuro1962 2016年6月9日 8:12
    2016年6月8日 7:07
    モデレータ
  • お騒がせして、申し訳ございませんでした。

    大体実行してみたら、意味がわかってきました。

    改めて回答ありがとうございました。

    • 回答としてマーク kuro1962 2016年6月9日 8:12
    2016年6月9日 8:11