部門 コード 商品名 業者 単位 分類 出数 原価 直営 単価差益
3 1 油 油屋 缶 油 1 500 550 50
3 2 水 水屋 リットル 水 1 500 550 50
3 5 栗 栗屋 kg 野菜 1 500 550 50
3 8 筍 筍屋 kg 野菜 1 500 550 50
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
上の図を下の図の様に歯抜けになっている番号を入れたいのですが、地味な作業で入れていくにはかなりの量がありまして、何か良い方法がありましたら教えてください。
部門 番号 コード 商品名 業者 単位 分類 出数 原価 直営 単価差益
3 1 1 油 油屋 缶 油 1 500 550 50
3 2 2 水 水屋 リットル 水 1 500 550 50
3
4
3 5 5 栗 栗屋 kg 野菜 1 500 550 50
6
7
3 8 8 筍 筍屋 kg 野菜 1 500 550 50
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
No.3ベストアンサー
- 回答日時:
VBAを使います。
「フォーム」のツールバーからボタンを選択して好きなところにボタンを貼り付けます。
「マクロの登録」で「新規登録」以下のコードを貼り付けてください。
ワークシートのデータの範囲に、「範囲」という名前を付けます。
ボタンを押せばOK。
-------------------------
Sub ボタン1_Click()
Dim arange As Range
Set arange = Range("範囲")
Max% = arange.Rows.Count
i% = 1
While i% < Max%
If arange.Cells(i%, 2) <> arange.Cells(i% + 1, 2) - 1 Then
arange.Rows(i% + 1).Insert
arange.Cells(i% + 1, 2) = arange.Cells(i%, 2) + 1
Max% = Max% + 1
End If
i% = i% + 1
Wend
End Sub
No.2
- 回答日時:
先ほどの問題との関係は(逆の質問をしましたね。
関数で回答しようとしたら締めきられた)。
本質問ですが
Sheet3に空き行の無いデータが入っています。
最下行は第10行と仮定しているので、実際は$B$10や$K$10を修正してください。
A3に
=IF(ISERROR(MATCH(ROW(A3)-2,Sheet3!$B$1:$B$10,0)),"",INDEX(Sheet3!$A$1:$K$10,MATCH(ROW(A3)-2,Sheet3!$B$1:$B$10,0),COLUMN(A3)))
といれ、K3まで複写する。
A3:K3を範囲指定して、K3で+ハンドルを出して下へ引っ張る。
B列には他の列に連番をつくり、その連番をB列に値複写してください。
No.1
- 回答日時:
VBAでの対応を想定して回答します。
ただVBAコードが判らないので、
ひとまずはアルゴリズムでの返答になることを
ご了承ねがいます。
前提条件
・コードが存在している場合、番号は同じ値となる。
・同じコードを持つデータは無い。
・コードは既に昇順となっている。
・番号の列は既に追加されている。
----ここから
一番最後の行に行く。
[コード]の値を変数Aに取得する。
do
{
if(変数Aの値 > [コード]の値)
{
下に一行追加。
//この時、フォーカスが新しい行の
//[番号]列であって欲しい。。。
}
[番号]に変数Aの値を入れる。
変数Aの値を-1する。
フォーカスを一行上の[コード]に移す。
}
while(変数Aの値がゼロになるまで)
・おしまい・
----ここまで
こんな感じでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 食べ物・食材 大量のてんぷら油の輸入をしたいのですが 4 2022/11/03 10:50
- 先物取引 【LNG液化天然ガスのBTU(英国熱量単位)の100万BTUは何リットルですか?】 もしかして、水よ 1 2022/04/04 19:23
- レシピ・食事 昨日作った創作素麺に良い名前はありませんか? 7 2023/03/15 06:36
- レシピ・食事 有りそうで無さそうで無さそうで有りそうな中華和え麺。 3 2023/01/22 06:54
- 食べ物・食材 寒脂鍋(かんし鍋)を知ってる方いらっしゃいますか? 4 2022/12/20 07:25
- 食べ物・食材 刻んだ野沢菜漬けがたくさんあります。簡単に美味しく食べ切る料理を教えてください。 今のところは、 冷 9 2023/04/24 08:24
- 食べ物・食材 豚肉を入れない春巻きの美味しい作り方 1 2023/08/26 18:22
- Excel(エクセル) Excel関数 情報引用する方法 4 2022/07/31 20:59
- スーパー・コンビニ 韓国は暮らしにくいですかね?(´・ω・`) 3 2023/05/20 18:50
- 建設業・製造業 建設業にみる 人手不足倒産。 作業員もだろうが 職人不足が 1番の原因らしい。 寧ろ 大工でも ハウ 4 2023/08/06 22:17
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセル 連番が途切れているところに空白行を入れる
Excel(エクセル)
-
エクセルで欠番を見付けるには
Excel(エクセル)
-
抜けている行を追加したい
Excel(エクセル)
-
-
4
Excelで連番でない数字を割り出す関数
その他(データベース)
-
5
エクセルで飛び飛びの日付をきちんと補完して並べ直すには?
Excel(エクセル)
-
6
EXCELで通し番号の行に欠番有りの番号の行を照応させる方法を教えてください。
その他(Microsoft Office)
-
7
エクセルのリストから欠番を拾い出したい
Windows 7
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access レポート印刷するときに...
-
ACCESS VBA でのエラー解決の根...
-
アクセスクエリの計算
-
Microsoft365にAccessってあり...
-
実行時エラー3131 FROM 句の構...
-
Access VBA を利用して、フォル...
-
Accessのクエリで、replace関数...
-
Access DTPickerの初期表示月を...
-
Accessのスプレッドシートエク...
-
エクセルのデータをアクセスに...
-
Accessのフォーム上のテキスト...
-
AccessのDBを理解するコツは?
-
Access IF文でテーブルに存在し...
-
【Access】Dcount関数の複数条...
-
accessの代わりになるもの
-
accessでlaccdbファイルが削除...
-
Accessのデータ型の日付/時刻型...
-
Accessで独自メニューバーまた...
-
Access DAOのExecuteメソッドの...
-
DoCmd.SearchForRecord が動か...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access レポート印刷するときに...
-
Access Error3061 パラメータが...
-
Microsoft365にAccessってあり...
-
Accessのクエリで、replace関数...
-
Accessのリンクテーブルのパス...
-
Access VBA [リモートサーバー...
-
ACCESS VBA でのエラー解決の根...
-
accessデータを指定したExcel、...
-
Accessのスプレッドシートエク...
-
CSVファイルの「0落ち」にVBA
-
【Access】Dcount関数の複数条...
-
Accessのフォーム上のテキスト...
-
Access VBA を利用して、フォル...
-
実行時エラー3131 FROM 句の構...
-
Vba Userformを前面に出すについて
-
Accessでフォームに自動入力し...
-
Accessレポートのチェックボッ...
-
Accessのテキストボックスの入...
-
Access 複数条件検索の設定が上...
-
accessのフォームに設置したボ...
おすすめ情報