No.5ベストアンサー
- 回答日時:
不吉な番号の4と9を排除したいと?
チョー簡単です。
1.例えばセル A1 に文字列で 1 と入力
2.[オートフィル]機能で下方にズズーッと好きなだ
け(最大65536行目まで)連番を作成
3.データ範囲の任意の単一セルを選択
4.[データ]→[フィルタ]→[オートフィルタ]を実行
5.セル A1 の[オートフィルタ]矢印(▼)をクリック
6.“(オプション)”を選択
7.上段左窓内に 4 を入力
8.その右窓内で“を含む”を選択
9.“OR”に目玉入れ
10.下段左窓内に 9 を入力
11.ステップ8に同じ
12.[OK]をクリック
13.抽出された最上行のレコードの行番号(5 のはず
ですね)をクリック(→当該行全体が選択され
る)
14.マウスの右クリックから[行の削除]を選択
15.[オートフィルタ]を解除
この回答へのお礼
お礼日時:2006/05/25 11:41
ありがとうございます(^▽^喜)でも何故か、6~12のステップをやってもレコードが0個見つかりました。とばかりなります何度も試みてますが・・・、私も疑問です。ちなみにエクセル2002です。4以上とかやるとちゃんと命令どおり表示されるのに・・・。
No.10
- 回答日時:
下1桁ではなくどの桁も4と9は除くのですか。
(1)下1桁なら
A1=1、A2に=IF(OR(MOD(A1,10)=3,MOD(A1,10)=8),A1+2,A1+1)
といれて下方向に式を複写。
(2)4桁までで、4,9数字を除く場合。
VBAですが
Sub test01()
n = Array(0, 1, 2, 3, 5, 6, 7, 8)
x = 1
For i = 0 To 7
For j = 0 To 7
For k = 0 To 7
For l = 0 To 7
m = n(i) * 1000 + n(j) * 100 + n(k) * 10 + n(l)
Cells(x, "A") = m
x = x + 1
Next l
Next k
Next j
Next i
End Sub
5桁までであれForループを外に1つ増やしてください。
0001のようにしたい場合はCells(x,"A")=TEXT(m,"0000")
でできるでしょう。
No.8
- 回答日時:
#4のmshr1962です。
一応マクロ(ユーザー関数)を使った場合
Function REN49(SUUTI)
Dim RC As String, RI As Integer
If IsNumeric(SUUTI) Then REN49 = SUUTI + 1 Else REN49 = 1
For RI = 1 To Len(REN49)
RC = StrReverse(REN49)
If CInt(Mid(RC, RI, 1)) Mod 5 <> 4 Then Exit For
REN49 = REN49 + 10 ^ (RI - 1)
Next RI
End Function
上記をマクロとして登録後に
開始セルに開始値をセット(例 A1=1)して
A2=REN49(A1)
として連番作成
No.7
- 回答日時:
参考までに、
A2=A1+1+OR(RIGHT(A1)={"3","8"})+OR(RIGHT(A1,2)={"38","88"})*10
桁数によって
+OR(RIGHT(A1,3)={"388","888"})*100
の様に加えてください
No.6
- 回答日時:
[No.5回答]の補遺、
次のステップを 13 と 14 の間に追加してください。
13.5.Ctrlキーと Shiftキーを抑えたままで、下矢印
(↓)をキーを一発叩く
No.4
- 回答日時:
下一桁だけ対象なら単純ですが
=A1+IF(OR(MOD(A1,10)=3,MOD(A1,10)=8),2,1)
全桁だと、38→50,88→100といった変換が出るので関数だと難しいです。
マクロになるかな?
No.2
- 回答日時:
A1セルに「1」と入れて、
A2セルに「=ROUND((MOD(A1,5)+3)*1.25,0)+INT(A1/5)*5-3」と言う式を入れ、A2セルを下方向にオートフィルでコピーして下さい。
No.1
- 回答日時:
通常のオートフィルでそのような連番は無理ですので、こうしませんか?
A1セルに1としたら
A2セルに
=IF(OR(RIGHT(A1,1)="3",RIGHT(A1,1)="8"),2,1)+A1
と入れて、あとは下までずーっとドラッグしてみてください。
式ではなく数値としてほしいのであれば、その範囲をいったんコピーして値で貼り付けてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) エクセルのオートフィルについて 2 2023/06/09 21:28
- Excel(エクセル) 高校一年生です。今日学校でエクセル4級を受けました。合計を出す時にオートSUMの合計のボタンを押しま 2 2022/12/09 16:32
- Excel(エクセル) エクセル 可視セル部の数値の抜き出し方法 7 2022/05/14 13:49
- Visual Basic(VBA) エクセルVBAのコードについて 2 2022/08/10 21:49
- Excel(エクセル) エクセルについて教えてください。 一度入力した文字や数字を誤って削除や変更しないために、削除や変更を 3 2022/10/30 10:36
- 教育学 エクセルで小数点以下を四捨五入について教えてください。 2 2023/04/05 17:33
- Excel(エクセル) エクセルで作った文章を図で貼り付けたが元のエクセルが削除したので図からエクセルに戻したい 4 2022/07/05 08:11
- Excel(エクセル) Excel 365 フリーズ 頻発 エクセルのセルの中に日本語の文章を全角半角和文英文数字を混ぜて入 3 2022/12/12 15:09
- Word(ワード) 差し込み印刷 4 2022/07/19 20:51
- Excel(エクセル) 【エクセル関数】アルファベットで以上だったらカウントする 4 2022/07/09 14:07
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelで、スクロールをすると限...
-
EXCEL アルファベットと数字の...
-
エクセルで連続データから、数...
-
セルをクリックすると付箋のよ...
-
エクセルの画面で十字マークが...
-
複数のセルの入力内容を一度に...
-
Excel選択を繰り返すとセルの色...
-
エクセル 数値を全て「1」にす...
-
excelで1行ごとに一気に削除す...
-
エクセルでハイパーリンクのU...
-
Excelで表のデータを並び替えた...
-
エクセルで0を除いて昇順に並...
-
エクセル 画面上の行数を調節...
-
エクセルVBAでセル範囲のデータ...
-
Excelで急に動かなくなる
-
連続データの作成(E)が選択出来...
-
エクセルで「1~15」の乱数...
-
エクセルで、結合したセルを選...
-
エクセルVBA 複数行にまたがっ...
-
エクセルの行数の制限
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelで、スクロールをすると限...
-
エクセルの画面で十字マークが...
-
エクセルで連続データから、数...
-
EXCEL アルファベットと数字の...
-
セルをクリックすると付箋のよ...
-
excelで1行ごとに一気に削除す...
-
エクセルでハイパーリンクのU...
-
エクセル 数値を全て「1」にす...
-
エクセル 画面上の行数を調節...
-
Excel選択を繰り返すとセルの色...
-
ピポットテーブルエラー解決方法
-
Shift押しながら、矢印ボタンで...
-
複数のセルの入力内容を一度に...
-
Excelで表のデータを並び替えた...
-
エクセルで0を除いて昇順に並...
-
エクセルVBAでセル範囲のデータ...
-
Excelで急に動かなくなる
-
エクセルでカーソルが四方に矢...
-
エクセルで「1~15」の乱数...
-
連続データの作成(E)が選択出来...
おすすめ情報