
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
No.3 の補足
Excel 2003 と Excel 2019 で試しましたがこちらではエラーになりません。
コピペで無く手入力なら間違いが無いかもう一度確認して下さい。
ちなみに「Const …」の部分以外はそのまま動くはずなので、コピペして必要であれば「Const …」の部分だけ修正する事をお勧めします。
No.3
- 回答日時:
「対象列番号 = Range(対象列記号 & "1").Column」で構文エラーとの事ですが
このコードのままコピペされたのでしょうか?変更した場合はどこをどのように変更したか提示して下さい。
No.2
- 回答日時:
こんな感じはいかがでしょうか?
Sub Sample()
Const 対象列記号 As String = "AE"
Const 始行番号 As Long = 3
Const 終行番号 As Long = 33
Dim 対象列番号 As Long
Dim 先列番号 As Long
Dim データ数 As Long
Dim 元行番号 As Long
Dim 最終行番号 As Long
対象列番号 = Range(対象列記号 & "1").Column
先列番号 = 対象列番号 + 1
データ数 = 終行番号 - 始行番号
元行番号 = 終行番号 + 1
最終行番号 = Cells(Rows.Count, 対象列番号).End(xlUp).Row
Application.ScreenUpdating = False
Do While 元行番号 <= 最終行番号
Range(Cells(元行番号, 対象列番号), Cells(元行番号 + データ数, 対象列番号)).Cut Cells(始行番号, 先列番号)
元行番号 = 元行番号 + データ数 + 1
先列番号 = 先列番号 + 1
Loop
Application.ScreenUpdating = True
MsgBox ("終了しました")
End Sub
この回答へのお礼
お礼日時:2020/01/20 13:37
対象列番号 = Range(対象列記号 & "1").Column
のところに構文エラーが発生してしまいます、、。なぜでしょう?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル 印刷範囲外を非表示...
-
EXCELでタイトル行と一番下の行...
-
【VBA】PDF出力に任意のファイ...
-
EXCEL 連動したドロップダウン...
-
Excelのテーブル上のセルの保護...
-
名簿の漢字名を関数で半角カナ...
-
エクセルで休日の「休」という...
-
Excel セルの右にスペースが空...
-
エクセルのセルの右下の角の十...
-
セル上に表示された見かけ上の...
-
Excelでセルを次の行の先頭の列...
-
【エクセル】入力規則のプルダ...
-
PowerPointの表内のカンマ
-
エクセルでエンターを押すと隣...
-
エクセル 数式の無効化
-
エクセルで縦計と横計が正しい...
-
コルム
-
エクセルの結合セル内に文章を...
-
Excel マクロ 選択セルの値の枚...
-
数値を桁ごとに分割したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELでタイトル行と一番下の行...
-
エクセル 印刷範囲外を非表示...
-
Excelでデータの抽出&別シート...
-
EXCELで、文字に関連したセルだ...
-
EXCEL2000:数字の前に0を3つ付...
-
再表示を押しても復活しない・・?
-
【エクセル】端の列や行を再表...
-
Windows Media Player11で曲の...
-
EXCEL2列1列で0を表示する方法
-
Real one Player 曲順について
-
Excel2007で最大化しても列番号...
-
D2に商品札番号を指定していま...
-
EXCELのシートの範囲を限定する
-
PowerPointの表内のカンマ
-
エクセル 数式の無効化
-
【VBA】PDF出力に任意のファイ...
-
EXCEL 連動したドロップダウン...
-
名簿の漢字名を関数で半角カナ...
-
エクセルで休日の「休」という...
-
エクセル関数:文字だけでなく...
おすすめ情報
図はやりたいことを手作業で行っているところです。
もともと縦一列の長いデータを決まったセルの数で分割してカット、次の行へペーストしています。
図に従うと、次にやろうとしていることは
「AE34から一番下までカット」
↓
「AF3にペースト」
この次の
「AF34から一番下までカット」
↓
「AG3にペースト」
を自動化したいです。