![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
A 回答 (5件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
ざっと書くとこんな感じ
startRange = "b2"
ColsCount = 30
RowsCount = 54
Dim x() As Integer
ReDim x(RowsCount, ColsCount)
Set orgRange = Range(startRange)
For j = 0 To (UBound(x, 1) - 1) / 2
For i = 0 To UBound(x, 2) - 1
x(j * 2, i Mod UBound(x, 2)) = i + 1 + j * UBound(x, 2) * 2
x(1 + j * 2, i Mod UBound(x, 2)) = UBound(x, 2) * 2 - i + j * UBound(x, 2) * 2
Next
Next
Range(orgRange, orgRange.Offset(UBound(x, 1) - 1, UBound(x, 2) - 1)).Value = x
No.3
- 回答日時:
[A1]セルに 1 を記述
[B1]セルに =A1+1 を記述
[A2]セルに =A1+59 を記述
[B2]セルに =A2-1 を記述
[A3]セルに =A2+1 を記述
[B3]セルに =A3+1 を記述
[B1][B2][B3]の3つのセルをまとめて選んで、右下の■をつまんで右にAD列迄動かします
2行目、3行目の2行をまとめて選んで
同じ用に■をつまんで下に 求める行まで(5000席なのか 30*54=1620席なのかしりませんが)
動かします。
最後に
計算式が埋め込まれているので、
全てのセルを選択してコピー
そのまま、形式を選択して貼り付け で 値 を選んでOK
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA横データを縦にしたいです 2 2023/08/08 19:38
- Excel(エクセル) VBAでユークリッド距離を用いて1番近い物を表示 表 裏 縦 横 高さ 縦 横 高さ 名前 1 45 9 2022/10/23 16:52
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- その他(Microsoft Office) エクセルで1行の長いデータを指定の桁数で分割する方法が知りたいです。 4 2022/05/20 21:55
- Visual Basic(VBA) 【VBA】データを入力後に,同一シート内に履歴として転記するVBAコードを教えていただきたいです。 3 2022/11/16 01:37
- 関東 航空券の座席指定 3 2022/06/21 19:41
- Visual Basic(VBA) 複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。 9 2022/06/17 10:33
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- ハワイ・グアム ZipAirの座席について 2 2022/09/24 20:52
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
i=cells(Rows.Count, 1)とi=cel...
-
特定のセルが空白だったら、そ...
-
Excle VBA Findメソッドについて
-
【Excel VBA】指定行以降をクリ...
-
VBAコマンドボタンを押すたびに...
-
Excelで指定した日付から過去の...
-
VBA コピーして次の値まで貼り...
-
【Excel】指定したセルの名前で...
-
範囲内で最大値を見つけ、その...
-
指定した条件で行セルを非表示...
-
Excel VBA マクロ ある列の最終...
-
クリックされたセルの位置を取...
-
連想配列を配列に格納したいで...
-
実行時エラー438 オブジェクト...
-
TODAY()で設定したセルの日付...
-
DataGridViewの各セル幅を自由...
-
特定行の色を変えたい(FlexGrid)
-
【VBA】指定したセルと同じ値で...
-
指定文字以外のカウント
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
VBAの計算で@が出てしまう件
-
Excelのプルダウンで2列分の情...
-
EXCELで変数をペーストしたい
-
VBA ユーザーフォーム ボタンク...
-
VBAでセルをクリックする回...
-
Excel VBA、 別ブックの最終行...
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
-
VBAを使用した時間管理
-
”戻り値”が変化したときに、マ...
-
Sub 要具ライフ() ActiveSheet....
おすすめ情報