![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.4
- 回答日時:
=OFFSET(A$1,(ROW(A1)-1)/8,MOD(ROW(A1)-1,8))
No.3
- 回答日時:
こんにちは
1回だけの作業なら関数併用で手作業で、同じ作業を何回もやる必要があるのならマクロが宜しいかと。
マクロの例はNo2様がすでに回答して下さっているので、関数利用の方法を・・・
そのシートの好きな列(J列とかK列など)の1行目に
=INDEX(A:H,INT((ROW()-1)/8)+1,MOD(ROW()-1,8)+1)
を入力して、下方にフィルコピーで1列に変換されると思います。
上記は関数なので値として固定させたければ、列をコピーして「形式を選択してペースト」で値をペーストすればよろしいです。
No.2
- 回答日時:
VBA で良かったでしょうか
ダメならスルーということで・・・
以下を標準モジュールに記述して、
アクティブシートを処理対象に、
そのものを書き換えます
Public Sub Samp1()
Dim i As Long, j As Long
Const CCOLW As Long = 8 ' 列数
j = CCOLW - 1
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
With Cells(i, "A")
.Offset(, 1).Resize(, j).Copy
.Offset(1).PasteSpecial xlPasteValues, Transpose:=True
.Offset(, 1).Resize(, j).ClearContents
If (i = 1) Then Exit For
.Resize(j).EntireRow.Insert
End With
Next
Range("A1").Select
Application.ScreenUpdating = True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Visual Basic(VBA) VBA横データを縦にしたいです 2 2023/08/08 19:38
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- その他(ブラウザ) cvsファイルをダウンロードすると、自動で拡張子がExcelのものになる 5 2022/07/20 21:21
- その他(Microsoft Office) エクセルで串刺ししたシートの並べ替えをしたいです 4 2023/02/14 11:59
- Visual Basic(VBA) Excelで横書き50行の漢字テストデータを縦書きのテスト問題にしたい。 6 2022/04/27 15:03
- Visual Basic(VBA) VBAで大量データの処理 3 2022/11/15 21:53
- Excel(エクセル) エクセル シート内のボックスを縦並びから横並びに 7 2023/04/05 04:28
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) CSVファイルがカンマ区切りにならない。対処法を教えていただきたいです。 仕事でSMS一斉送信ができ 2 2022/07/01 21:24
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
エクセルで横並びの複数データを縦の一本のデータにしたい
Excel(エクセル)
-
エクセルで横並びの複数データを縦のデータにしたい こんにちは。宜しくお願い致します。 A B C D
ソフトウェア
-
エクセルで長い行を5行ごとに1列にするには?
Excel(エクセル)
-
-
4
エクセルで1列に500行並んだデータを5列毎に改行
Excel(エクセル)
-
5
【エクセル】区切り文字が含まれるデータを縦に展開する方法
Excel(エクセル)
-
6
Excel VBAで、横並びのデータを縦並びにしたい
その他(Microsoft Office)
-
7
Excelで縦列グループが横並びになっているのを、縦1列に並び変えたいです。
Excel(エクセル)
-
8
エクセルで横データを縦に並べ変えたいです。
財務・会計・経理
-
9
VBA横のデータを縦にする方法
Excel(エクセル)
-
10
【VBA】複数行あるカンマ区切りのデータを全て縦に一列に並べたい
Visual Basic(VBA)
-
11
Excelで行ごとコピー、同じ行を3行にしたい
Excel(エクセル)
-
12
テキストに縦に並んでいるデータを半角カンマで横に並べたい
Windows Me・NT・2000
-
13
EXCELで2列を参照し、重複するものを横に並べたい
Excel(エクセル)
-
14
exeファイルの中身を見ることは可能ですか?
フリーソフト
-
15
エクセルで縦のカラムデータをカンマ区切りで出力したい。
PostgreSQL
-
16
VBAで横データを縦データに変換する方法を教えて下さい。
その他(Microsoft Office)
-
17
VBA横データを縦にしたいです
Visual Basic(VBA)
-
18
/"でセル内の文字を縦に分割するマクロについて"
Excel(エクセル)
-
19
変数の宣言の名称を教えてください。(Dim i As Long)
Access(アクセス)
-
20
エクセルで縦2列の表を横1列にするには
その他(パソコン・スマホ・電化製品)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの関数について教えて...
-
Excelカスタム関数(アドイン登...
-
Excelデータをコピペして、ペー...
-
Excel関数-文字列で自動作成さ...
-
スプレッドシート、Excelでの数...
-
Excelで50個のセルに同じ文字を...
-
Microsoft Officeの中古は信用...
-
スプレッドシートで使う数式を...
-
エクセルVBA、別ブックへ転記す...
-
エクセルで会社の従業員のデー...
-
エクセルで不等号記号(≠)が上に...
-
エクセルの表で1年間の曜日を...
-
A列とB列を参照してC列に連番を...
-
エクセルの空欄をつめて、次の...
-
エクセルでの特別な文字を上に...
-
エクセルでセルに標準で入力さ...
-
エクセル日付 文字列の関数がエ...
-
エクセル2013で月間勤務表から...
-
エクセルの日付を編集する
-
EXCELの質問です 119から足した...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報