A 回答 (7件)
- 最新から表示
- 回答順に表示
No.7
- 回答日時:
VBAって書いてありましたね。
単純にこれじゃまずいんですかね?
Dim intIndex As Integer
For intIndex = 1 To 100
'前がRow、後ろがCol
'列、行のカウントは1から始まる
Sheet1.Cells(intIndex, 1).Value = Sheet1.Cells(1, intIndex).Value
Next intIndex
100に当たる部分をコピーしたい最終セルのカウントにすれば全部処理できると思うのですが。
この記述だと列のデータを行に入れるようになります。
CellsのintIndexと1をそれぞれ入れ替えれば行のデータを列に入れることが出来ます。
また、Sheet1はそれぞれActiveSheetにすればどのシートにも対応できるような気がします。←動かしてないのでわからない。
No.6
- 回答日時:
たとえば
Sub テスト()
Range(Worksheets("データ").Cells(i, 5), Worksheets("データ").Cells(i,35)).Copy
End Sub
こんな感じだと同じ1004エラー
先に
i=0
と指定しても同じく1004エラー
i=3
と指定して実行するとエラーが無く動作します。
(これって普通なんですよね)
エラー発生時にi=3ってことは
1回目と2回目のループ時にはエラーが出ていなかったのですよね?
謎だ!!
この回答への補足
ご回答ありがとうございます。
不思議な事に、Worksheets("データ")を外すとエラーが出なくなりました。
しかし、またしても問題が...。
今度はシートの切り替えが上手く行かなくなってしまいました。
質問が最初の物とそれてきてしまったので、一度別トピで上記の現象について質問を出してみます。
No.4
- 回答日時:
Sub 並び替え()
Range("B1:F1").Copy
Range("A2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub
コードで書くとこんな感じ
ありがとうございます。
試してみようと思ったのですが、先ほども書きましたがその前のCopyの部分で躓いてしまいました。
行を変化させる為にCellsを使ったのですが、なぜかエラーが出てしまいます。
No.2
- 回答日時:
No.1さんのやり方をマクロで記録して見てみればわかると思います。
Range("D3:F3").Select
Selection.Copy
Range("D5").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone,SkipBlanks:=False, Transpose:=True
TransposeというのをTrueにして張り付ける処理をすればいいようです。参考までに。
ご回答ありがとうございます。
教えて頂いた方法を試そうと思い、プログラムを走らせてみようと思ったのですが、そこにたどり着く前の部分でエラーが出てしまいました。
大元の横並びのデータをコピーしようと思ったのですが、
Range(Worksheets("データ").Cells(i, 5), Worksheets("データ").Cells(i,35)).Copy
上記の部分で実行時エラー1004が出てしまいます。
他にトピを立てて質問を出した方がよろしいでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) エクセルVBAについて質問です。 セルA1に"あ" セルB3に"い" セルC5に"う" と入力されて 2 2023/06/10 13:24
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Excel(エクセル) エクセルについて教えてください。 3 2023/03/24 08:34
- Excel(エクセル) ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存 2 2022/04/18 13:15
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 11:55
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルのアポストロフィを一...
-
エクセルの2ページ目の作り方
-
Excel 行の連続データを列に参...
-
エクセルで隣接していない複数...
-
エクセルで勝手に「折り返して...
-
メールソフト「サンダーバード...
-
Excel)軽いデーターのはずなの...
-
「選択範囲を解除してアクティ...
-
エクセルでの行数・列数を指定...
-
Excelに、ダブルクォーテーショ...
-
EXCELのオートフィルの設定を変...
-
Excelでコピーした行の挿入を繰...
-
EXCEL数値が存在する列の項目名...
-
エクセルで「コピーしたセルの...
-
エクセルオートフィルで書式を...
-
Excelのコピー・切り取り機能が...
-
エクセル 別シートへのコピー...
-
EXCELシートをPowerPointにきれ...
-
【エクセル】行の高さを規則的...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルのアポストロフィを一...
-
エクセルの2ページ目の作り方
-
エクセルで勝手に「折り返して...
-
エクセルで隣接していない複数...
-
Excel 行の連続データを列に参...
-
エクセルで「コピーしたセルの...
-
EXCELシートをPowerPointにきれ...
-
EXCELのオートフィルの設定を変...
-
Excel)軽いデーターのはずなの...
-
メールソフト「サンダーバード...
-
Excelに、ダブルクォーテーショ...
-
エクセルオートフィルで書式を...
-
エクセルで値だけコピーして背...
-
Excelでコピーした行の挿入を繰...
-
エクセルで、選択範囲の数値全...
-
エクセルでの行数・列数を指定...
-
「選択範囲を解除してアクティ...
-
エクセル 別シートへのコピー...
-
EXELで複数のとびとびのセルを...
おすすめ情報