No.1ベストアンサー
- 回答日時:
こんなんでどうでしょう?
データバックアップ後自己責任で確認してください。
Sub Macro1()
Dim i, HinmeiNo, Runking
HinmeiNo = 0
i = 1
Do
If Cells(i, 1) <> "" Then
HinmeiNo = HinmeiNo + 1
Runking = 1
i = i + 1
Else
Runking = Runking + 1
Cells(HinmeiNo, 1 + Runking * 2) = Cells(i, 3)
Cells(HinmeiNo, 2 + Runking * 2) = Cells(i, 4)
Rows(i).Delete
End If
Loop Until Cells(i, 3) = ""
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- SQL Server ACCESSで複数テーブルを結合して、リストを作る方法を教えてください。 2 2022/08/12 19:32
- SQL Server ACCESSで表が作りたく、そのためのSQL文や設定方法を教えてください。 1 2022/08/15 12:28
- SQL Server ACCESSで3ファイルを結合して、表を作成するやり方を教えて下さい。 17 2022/08/15 20:34
- Access(アクセス) Access クエリ 同一テーブル内 複数フィールドの同時集計のやり方について 1 2022/05/18 19:01
- JavaScript jsonテキストデータの並び替えができるサービスを教えてください 2 2022/08/05 20:16
- その他(Microsoft Office) パワークエリの複数ファイルのデータ統合について 3 2022/07/14 17:06
- 査定・売却・下取り(バイク) 良く友達と車のナンバーランキングを話題にします。 決まって1位は(品川)です。 で、大体2位は(世田 5 2023/06/26 05:11
- Excel(エクセル) エクセル count関数で出てきた数だけの行数をリンクで参照する 3 2022/08/10 12:02
- 中途・キャリア 私に向いている職業は何だと思いますか?アドバイスください。 4 2023/02/25 14:33
- Excel(エクセル) GETPIVOTDATAにかんして 1 2022/04/20 21:03
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ダイレックスとトライアル
-
「毎」と「別」の使い分け
-
一日でオナニーしてる時が一番...
-
コンビニ店員の方に質問です。
-
北洋銀行のATMと両替機は、朝何...
-
買い物 京都中京区二条城付近で...
-
オンラインでユニクロのキャンセル
-
大阪の漫画喫茶
-
イトーヨーカドーの大型店舗って?
-
Access:フォームの自動入力方...
-
東京または仙台でゲーミングモ...
-
D'stationの会員カードについて
-
虚言癖?でしょうか?有識者や...
-
ネカフェに泊まる時って年確さ...
-
『クロムハーツ』という ブラ...
-
QUOカード1000円分を購入し...
-
表は,店舗c,店舗d,店舗e,店...
-
ツタヤって2~3店舗同時レン...
-
古本市場でデビッドカード
-
BOOKOFFってどこの店舗でも ス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コンビニ店員の方に質問です。
-
一日でオナニーしてる時が一番...
-
ダイレックスとトライアル
-
「毎」と「別」の使い分け
-
北洋銀行のATMと両替機は、朝何...
-
エクセルで指定した日付、店舗...
-
業務スーパーってauウォレット...
-
東京または仙台でゲーミングモ...
-
タピオカ→唐揚げ→高級食パン→生...
-
cicaスリーピングマスク
-
店舗到着 お待ちくださいの「お...
-
ネカフェに泊まる時って年確さ...
-
最近、ローソンで弁当のカレー...
-
D'stationの会員カードについて
-
ツタヤって2~3店舗同時レン...
-
ムッターローザ
-
ユニクロの裾上げについて
-
オンラインでユニクロのキャンセル
-
マジックミシンの店舗でズボン...
-
Access:フォームの自動入力方...
おすすめ情報