![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.1ベストアンサー
- 回答日時:
いくつか不明な部分もありますので環境に合わせて修正してください
見出し(?)部分で列を変更するという事であれば、最下部の"見出し"判定部分に
『intOC = intOC + 1』を追加すれば可能です
Public Sub Sample()
Dim intIR As Integer
Dim intIC As Integer
Dim intOR As Integer
Dim intOC As Integer
Dim intL As Integer
intIR = 6
intIC = 2
intOR = 9
intOC = 9
Do Until Sheet1.Cells(intIR, intIC).Value = ""
intOR = intOR + 1
If intOR > 37 Then
intOR = 10
intOC = intOC + 1
End If
Sheet2.Cells(intOR, intOC).Value = Sheet1.Cells(intIR, intIC).Value
intIR = intIR + 1
If Sheet1.Cells(intIR, intIC).Value = "見出し" Then
intIR = intIR + 1
End If
Loop
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
お肉の下のシートを煮込んでし...
-
エクセルのシートをコピーして...
-
エクセルを利用して、日計と累...
-
2つのシート間での重複データ...
-
カップルシートがあるダイニン...
-
エクセルで1行だけ数式が反映さ...
-
エクセルで2つのシートに同じ名...
-
フライパンで魚を焼く時のフラ...
-
EXCELで受験票を作成したい(名...
-
複数シートのセルの 記号の数...
-
派遣会社の担当者からタイムシ...
-
精算表って?
-
Excel VBA 12ヶ月分のシート作成
-
excelに詳しい方お願いします ...
-
excel シート1の奇数(偶数)...
-
防草シートって効果ありますか?
-
エクセルで製作したシートをメ...
-
クッキングシート
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
参照先セルに値が入っていない...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
お肉の下のシートを煮込んでし...
-
エクセルを利用して、日計と累...
-
指定した条件でTRANSPOSE関数を...
-
チュロス袋の代用
-
エクセルのシートをコピーして...
-
2つのシート間での重複データ...
-
毎日の日計を別シートに自動で...
-
エクセルで○のついた項目を抽出
-
条件にマッチする行を抽出するV...
-
エクセルで1行だけ数式が反映さ...
-
エクセル ○印がついている行を...
-
エクセルで2つのシートに同じ名...
-
EXCELで受験票を作成したい(名...
-
エクセルでフラグがたっている...
-
秘書検定準1級のアドバイスシー...
-
excel シート1の奇数(偶数)...
-
Excelで複数のシートに列のグル...
-
EOMONTH関数の代わり
-
複数シートの列、幅の一括変更方法
-
VBA 縦のデータを横にするコード
おすすめ情報