■ このスレッドは過去ログ倉庫に格納されています
Excel総合相談所 153
- 1 :名無しさん@そうだ選挙にいこう:2023/03/09(木) 07:49:12.26 .net
- 【1 OSの種類 .】 Windows**
【2 Excelのバージョン 】 Excel**
【3 VBAが使えるか .】 はい・いいえ
【4 VBAでの回答の可否】 可・否
注意事項
・情報を隠すために別の問題を設定するのはやめましょう。たいていの場合その問題は的外れな設定で、期待していたものからずれた回答が返ってきます。
スレッド作成は>>980がやります
※前スレ
Excel総合相談所 152
https://mevius.5ch.net/test/read.cgi/bsoft/1671921490/
- 274 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 14:11:10.63 .net
- 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2018
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
vbaを用いてシートごとに自動転記する際にエラーが発生してしまいます。
プログラム9で
実行時エラー1004
この名前は既に使用されています。別の名前を入力してください。
といわれてしまいます。
このような場合、どうすればよろしいでしょうか。
'プログラム1|プログラム開始
Sub CreateSheets()
'プログラム2|シート設定
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("データ")
Set ws2 = ThisWorkbook.Worksheets("原紙")
'プログラム3|最終行を取得
Dim cmax1 As Long
cmax1 = ws1.Range("A65536").End(xlUp).Row
- 275 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 14:11:33.71 .net
- 'プログラム4|「データ」シートをコピーして重複削除
Dim ws3 As Worksheet
ws1.Copy after:=ThisWorkbook.Worksheets(Worksheets.Count)
Set ws3 = ThisWorkbook.ActiveSheet
ws3.Range("A:Y").RemoveDuplicates Columns:=Array(1), Header:=xlYes
'プログラム5|プログラム4で重複削除したシートの最終行を取得
Dim cmax2 As Long
cmax2 = ws3.Range("A65536").End(xlUp).Row
'プログラム6|コピーしたシートを並び替え
With ws3.Sort
.SortFields.Clear
.SortFields.Add Key:=ws3.Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange ws2.Range("A2:Y" & cmax2)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
- 276 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 14:11:53.80 .net
- 'プログラム7|重複削除、並び替えしたシートの2行目から最終行まで処理
Dim i As Long
For i = 2 To cmax2
Dim sagaku As String
sagaku = ws3.Range("A" & i).Value
'プログラム8|「原紙」シートをコピー
Dim ws4 As Worksheet
ws2.Copy after:=ThisWorkbook.Worksheets(Worksheets.Count)
Set ws4 = ThisWorkbook.ActiveSheet
'プログラム9|コピーした「原紙」シートの名前を変更 ←ここでエラーが発生します。
ws4.Name = sagaku
'プログラム10|転記先の行数をn=2で初期化
Dim n As Long: n = 2
'プログラム11|「データ」シートのA列がsagakuと一致したら転記
Dim j As Long
For j = 2 To cmax1
If sagaku = ws1.Range("A" & j).Value Then
ws4.Range("A" & n & ":Y" & n).Value = ws1.Range("A" & j & ":Y" & j).Value
n = n + 1
End If
Next
'プログラム12|オブジェクト解放
Set ws4 = Nothing
Next
- 277 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 14:12:08.59 .net
- 'プログラム13|重複削除、並び替えしたシートを削除
Application.DisplayAlerts = False
ws3.Delete
Application.DisplayAlerts = True
'プログラム14|新しいエクセルファイルとして保存
Dim newfilename As String
newfilename = Format(Date, "yyyy-mm-dd") & "_" & ThisWorkbook.Name
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & newfilename
Application.DisplayAlerts = True
'プログラム15|プログラム終了
End Sub
- 278 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 14:12:44.55 .net
- 長文の為
連投申し訳ありません。
- 279 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 15:14:56.16 .net
- 次から次へと馬鹿が湧いてくる
春休みのせいか?
- 280 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 15:16:39.67 .net
- エクセルで大学のレポート書きたいんですけど、ワードで書いたほうがやりやすい気がするんですけど、エクセルでワードみたいに書く方法ありますか?、
- 281 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 15:23:13.88 .net
- また馬鹿が来た
- 282 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 15:29:34.11 .net
- >>280
無い
素直にWord使う方が捗る
- 283 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 15:34:42.04 .net
- >>282
そうします
- 284 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 16:09:30.52 .net
- >>274モジュールの先頭に次の1行を書くといい
on error resume next
- 285 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 16:40:38.93 .net
- excelってWindows11にしても不具合とかないですか?
- 286 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 16:41:20.00 .net
- どうして馬鹿ばっかり来るのか
- 287 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 16:44:29.03 .net
- 今window10なんですけど
11にしたらデータ壊れたりしないかなーって
- 288 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 17:02:42.40 .net
- >>284
ありがとうございます。
治りました。
- 289 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 17:12:15.83 .net
- 馬鹿の質問はこんな感じ
↓
横断歩道を渡ったら車に跳ねられますか?
- 290 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 17:13:48.57 .net
- >>289
なぜアホな人ほど無意味な例え話しようとするんだろーね
- 291 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 17:17:21.85 .net
- バカしかいない場所へわざわざ見に来るやつが一番のバカだって気付いてお願い
- 292 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 17:55:24.93 .net
- >>285
わからない
Microsoftとしてはないと見做してる
不具合が出ても報告すれば改善される可能性はある
- 293 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 18:15:41.04 .net
- >>274
Loopの中のDimがエラーの元のような。
- 294 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 18:17:39.82 .net
- 不具合避けたいならバージョンに注意
最新版 バージョン 2303 (ビルド 16227.20172 クイック実行)
- 295 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 18:38:06.65 .net
- >>290
この例えの理由もわからない馬鹿はコメントしない方がいいよ
- 296 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 19:10:04.06 .net
- >>274
chatGPTに聞いてみた
エラーが発生している原因は、既に使用されているシート名を新しくコピーした「原紙」のシート名に設定しようとしているためです。
この場合、sagaku変数の値が既に他のシート名に使われていないかどうかを確認する必要があります。
以下の方法で解決することができます。
①エラーが発生する箇所にデバッグポイントを設定します。
②F5キーを押して実行を再開します。
③エラーメッセージが表示された後、[デバッグ]をクリックします。
④エラー発生時点(プログラム9)で停止した状態になりますので、変数sagakuの値を確認します。
⑤sagakuの値が既に他のシート名に使用されている場合は、別の名前を設定するか、既存のシート名と重複しないように保存します。
https://ronpagpt.jp/?type=inquiry
- 297 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 19:12:11.70 .net
- >>274
実行時エラー1004が発生している原因は、新しいワークシートに既に使用されている名前を割り当てようとしているためです。この問題を解決するには、既に存在するワークシートと同じ名前が割り当てられないように、名前に一意性を持たせる必要があります。
以下は、ワークシート名に一意性を持たせる方法の一例です。プログラム9を以下のように修正してください。
vba
'プログラム9|コピーした「原紙」シートの名前を変更
Dim sheetName As String
Dim sheetIndex As Long
sheetIndex = 1
sheetName = sagaku & "_" & sheetIndex
Do While WorksheetExists(sheetName)
sheetIndex = sheetIndex + 1
sheetName = sagaku & "_" & sheetIndex
Loop
ws4.Name = sheetName
そして、以下のヘルパー関数WorksheetExistsを追加してください。
vba
Copy code
Function WorksheetExists(sheetName As String) As Boolean
On Error Resume Next
WorksheetExists = Not ThisWorkbook.Worksheets(sheetName) Is Nothing
On Error GoTo 0
End Function
これにより、既存のワークシートと同じ名前が使用されることがなくなり、エラーが発生しなくなるはずです。
https://ronpagpt.jp/?type=inquiry
- 298 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 19:47:50.04 .net
- >>290
本質を理解してないから的外れになるんだよね
- 299 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 19:53:28.83 .net
- 馬鹿が馬鹿を呼ぶ
- 300 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 21:21:14.65 .net
- ちょっとまてい!
Excelでレポート書きたいとか本当にワザと変な質問してるのか??
それとも真正のアレなのか??
- 301 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 21:22:34.06 .net
- ver.300
- 302 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 21:58:05.21 .net
- Lambda関数なんだか凄そうですね覚えてみます
LETといい知らないことを知れて為になります
- 303 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 22:24:53.98 .net
- 知る必要ないけどね
- 304 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 23:34:08.12 .net
- あまりニッチな関数使わない方が良いよ。回りからクレーム来る事あるから(経験済み)
趣味の世界でやるならガンガンとマニアックな事するけどw
- 305 :名無しさん@そうだ選挙にいこう:2023/03/24(金) 23:42:15.24 .net
- Lambda関数はヘルパー関数とセットじゃないと本当に意味ないからな
セットにすると最強
- 306 :名無しさん@そうだ選挙にいこう:2023/03/25(土) 04:24:57.24 .net
- ニッチな関数って何よ?
- 307 :名無しさん@そうだ選挙にいこう:2023/03/25(土) 06:19:25.87 .net
- この流れでそれがわからない痴呆
- 308 :名無しさん@そうだ選挙にいこう:2023/03/25(土) 11:51:04.87 .net
- そういうのは趣味の世界でやってくれって話
- 309 :名無しさん@そうだ選挙にいこう:2023/03/25(土) 12:12:43.58 .net
- mapLambdaってpythonみたいやな
- 310 :名無しさん@そうだ選挙にいこう:2023/03/25(土) 13:07:26.45 .net
- 今後のchatGPT次第でLAMBDAは使われるようになるよ
- 311 :名無しさん@そうだ選挙にいこう:2023/03/25(土) 14:40:50.54 .net
- Office365のExcelだが、
行の
第一営業部
第三営業部
第二営業部
を漢数字の順番にきちんとソートしたくて、ユーザー設定リストで順番を設定したんだが、
これって新しい部署が出来たり、逆に統合されたりしたらその都度設定しなおさんといかんの?
ユーザー設定リスト以外で漢数字の順番に並べる方法ってあるの?
- 312 :名無しさん@そうだ選挙にいこう:2023/03/25(土) 15:49:31.20 .net
- ソート
=FIND(MID(A1:A3,2,1),"一二三")
ソート関数
=SORTBY(A1:A3,FIND(MID(A1:A3,2,1),"一二三"),1)
- 313 :名無しさん@そうだ選挙にいこう:2023/03/25(土) 22:02:50.14 .net
- >>311
並び替え専用の列を追加した方がいいと思う
- 314 :名無しさん@そうだ選挙にいこう:2023/03/25(土) 22:42:17.10 .net
- >311
変化の履歴も管理するにはどんな方法が良いのだろうか?
- 315 :名無しさん@そうだ選挙にいこう:2023/03/25(土) 22:48:53.91 .net
- データベース的な話になるけど、部署を部署No.で管理したらどうかな?
- 316 :名無しさん@そうだ選挙にいこう:2023/03/25(土) 23:22:26.62 .net
- 組織一覧シートを作って部署名をA1から並べてVBAでその順に並び替える様にするとか?
関数で引っ張ってもいいけど。
- 317 :名無しさん@そうだ選挙にいこう:2023/03/25(土) 23:34:46.71 .net
- その関数でいいので教えてください
- 318 :名無しさん@そうだ選挙にいこう:2023/03/26(日) 00:50:11.16 .net
- このスレ見てるとExcel少しやってこうと思うなら、Accessも勉強したほうが考え方とかためになると思いましたまる
- 319 :名無しさん@そうだ選挙にいこう:2023/03/26(日) 02:15:53.59 .net
- アクセスは需要ありそうね
- 320 :名無しさん@そうだ選挙にいこう:2023/03/26(日) 06:47:14.87 .net
- あるわけないだろ
頭おかしいのか
- 321 :名無しさん@そうだ選挙にいこう:2023/03/26(日) 08:12:20.10 .net
- アクセスの需要は大分下がった
今はsaasだのなんだので色々なサービス知ってる方が良い
特に地雷みたいなサービスがたまにあってそれを避ける能力が必要
- 322 :名無しさん@そうだ選挙にいこう:2023/03/26(日) 09:53:03.74 .net
- Access使わずともPowerQueryで済んでしまう状況が多い
- 323 :名無しさん@そうだ選挙にいこう:2023/03/26(日) 11:14:36.49 .net
- Accessは帳票、データ加工ツールだから
- 324 :名無しさん@そうだ選挙にいこう:2023/03/26(日) 13:58:15.25 .net
- 違うけどwwww
- 325 :名無しさん@そうだ選挙にいこう:2023/03/26(日) 14:08:26.91 .net
- Excel少しと言ってる時点でAccess触ったら挫折するからExcel関数とVBAを頑張るべき
- 326 :名無しさん@そうだ選挙にいこう:2023/03/26(日) 15:32:33.15 .net
- エクセルのテーブルって二次元じゃん
三次元風なデータはどの様に扱ったら良い?
- 327 :名無しさん@そうだ選挙にいこう:2023/03/26(日) 15:39:21.93 .net
- シート別
- 328 :名無しさん@そうだ選挙にいこう:2023/03/26(日) 16:46:21.52 .net
- 外部キー列
- 329 :名無しさん@そうだ選挙にいこう:2023/03/26(日) 16:48:36.90 .net
- >>326
3次元風なシート別串刺し集計とかしたことないのか?
- 330 :名無しさん@そうだ選挙にいこう:2023/03/26(日) 16:50:04.93 .net
- https://news.mynavi.jp/techplus/article/exceljyukutatu-40/
- 331 :名無しさん@そうだ選挙にいこう:2023/03/26(日) 17:28:21.94 .net
- >>329
シートが1000とか10000もあったら死ねる
- 332 :名無しさん@そうだ選挙にいこう:2023/03/26(日) 17:34:42.96 .net
- シート数があまりに多い場合はパワークエリーで扱え
- 333 :名無しさん@そうだ選挙にいこう:2023/03/26(日) 22:53:21.46 .net
- >>320
お前はこのスレにまともな人間がいると思っているのか?
- 334 :名無しさん@そうだ選挙にいこう:2023/03/26(日) 23:33:22.89 .net
- >>325
マジで迷惑な存在w
- 335 :名無しさん@そうだ選挙にいこう:2023/03/27(月) 00:12:02.33 .net
- >331
Lotus Improvに良い機能があったのに
- 336 :名無しさん@そうだ選挙にいこう:2023/03/27(月) 01:54:15.65 .net
- 馬鹿はAccessを避ける法則
- 337 :名無しさん@そうだ選挙にいこう:2023/03/27(月) 02:12:30.27 .net
- Accessは使わんな
ExcelとSQLは使うけど
- 338 :名無しさん@そうだ選挙にいこう:2023/03/27(月) 02:22:41.25 .net
- そういやあAccessって一時期に廃止の噂無かったか?
- 339 :名無しさん@そうだ選挙にいこう:2023/03/27(月) 06:18:58.42 .net
- 今頃その質問ってダセー会社だなw
- 340 :名無しさん@そうだ選挙にいこう:2023/03/27(月) 06:55:11.54 .net
- 会社?
- 341 :名無しさん@そうだ選挙にいこう:2023/03/27(月) 09:02:39.24 .net
- それを使ってる会社マジでヤバい
沈むよ
- 342 :名無しさん@そうだ選挙にいこう:2023/03/27(月) 09:38:53.87 .net
- それってどれ?
- 343 :名無しさん@そうだ選挙にいこう:2023/03/27(月) 11:10:28.30 .net
- これ
- 344 :名無しさん@そうだ選挙にいこう:2023/03/27(月) 11:40:46.81 .net
- あれ?
- 345 :名無しさん@そうだ選挙にいこう:2023/03/27(月) 12:04:54.49 .net
- >>296
>>297
亀レスだけど
ありがとうございます。
- 346 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 12:38:44.11 .net
- OFFICE365 エクセルで助けてください
計算結果がマイナスならマイナスで
プラスならプラスで別のセルで式を
作る感じ
IFで想定通りの値じゃなかったら例えば100
のままにして違かったら足したり引いたり
を考えてます
うまくいきません
ヘルプお願い致します
- 347 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 12:42:19.22 .net
- 「助けて」で質問を書く奴は馬鹿ばっかの法則
- 348 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 12:44:18.31 .net
- >>346
https://i.imgur.com/viA2cqS.png
>>347
https://i.imgur.com/vuktT4R.png
- 349 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 13:16:39.58 .net
- >>346
助けてください 一所懸命回答すべく試みていますが、結局何をどうしたらいいか判別できません
スマホで書くのは大変かも知れませんが、具体的な例を書いてもらえないでしょうか
113×41=4,633
312×-7=-2,184 これを、別のセルではどう表したいのでしょうか?
又、IFで想定通りの値じゃ無いとは、どういった例でしょうか?
C3に365が入力されていて、C5に =IF(C3>=355,400,"hoge") という式の場合、どれが想定通りでは無い値でしょうか?
ご多忙のところ誠に恐縮ですがよろしくお願い致します
- 350 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 13:32:32.30 .net
- >>349は何を言いたいのかが判別できない
- 351 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 13:43:46.74 .net
- 自身の能力不足を嘆いているのだろう
エスパー能力不足を
- 352 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 13:57:42.96 .net
- セルに時間のつもりで
12:34
23:45
とかが入っていて
その並びで一部
1900/1/1 12:34
1900/1/1 23:45
とかが入っている
見た目の表示は一緒だけど
数値としては全然違うので前者に統一変換したいけど
どうやるのが一番楽?
- 353 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 13:59:30.83 .net
- 書式
- 354 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 14:00:37.88 .net
- hh:mm
- 355 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 14:09:00.21 .net
- 馬鹿の特徴として「助けて」で始まる質問をするという法則がある。
この手の馬鹿はあまりに馬鹿過ぎて質問すらまともにできない。
また何とか回答を得ても直ぐにわからないことが出てきてしつこく馬鹿な質問を繰り返す。
- 356 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 15:09:58.95 .net
- 今までexcel一件1行で管理できてた固定資産台帳に、資産本体、バーコード、発注書の写真を付けて管理することになったんですがこれもうExcelじゃ管理無理ですよね?
accessとかでデータベース使うしかありませんか?
- 357 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 15:36:55.68 .net
- >>355
それが真だったとして、
それをこの場で指摘する無意味さを理解できない馬鹿
伝えたい相手はそんなレスを読まないことすら分からない馬鹿
- 358 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 15:49:33.76 .net
- >>349
優しいな
>>346は答えてあげなよ
- 359 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 16:22:20.27 .net
- >>348
ありがとうございます(T_T)
- 360 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 16:30:02.98 .net
- >>356
資産本体をExcelのセルに入れるのは大変難しいと思いますが、
バーコードなら https://www.rolan.co.jp/shouhin/s_sakurabarcode5_excel.html この辺を参考に
また、発注書の写真(のみならずPDFなども)は、別フォルダに保存して =HyperLink で管理するのもひとつの解決法かも知れません
Excelの行数で管理しきれないほどの数多くの固定資産をお持ちなら、Excelなんてみみっちいアプリじゃ無くて
https://www.worksap.co.jp/services/asset-management/ こういったアプリを頼る方がよろしいような
- 361 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 16:36:40.90 .net
- ほら見ろ 泣かせちまったぢゃねーか
確かに質問者はどっかでつまずいてるから質問するんであって
途方に暮れてるから質問の仕方も分からずあたふた思い付いたことしか書けないんだ
それを寄ってたかってあげつらっていぢめてンぢゃねーよ
ひとつひとつ解決してくしか無いんだ やれるかやれないかじゃ無い やるかやらないかだ 回答側が弁えろ
- 362 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 16:51:24.45 .net
- 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
【質問】
ワークシート上の関数だけで文字列から数字だけを抜き出してハイフンで接続することはできますか?
【やりたい背景】
もういない人の作ったマクロが動かなくなって
手順ごとに代替手段を組み立てているところなのですが
大宮5丁目3番8号→5-3-8、羽田2丁目5-38→2-5-38
のように住所から丁目以降を数字で抜き出した文字列を作っている部分があり
これと郵便番号で2つの住所が一致するかを比較していたようなのです
このやり方を関数で再現する方法、またはこのやり方をしなくても住所の一致を確認する方法はあるでしょうか?
- 363 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 17:27:32.81 .net
- >大宮5丁目3番8号→5-3-8、羽田2丁目5-38→2-5-38
これが両方向のパターンがあって困ってるということ? それが理由でマクロが動作しない?
https://forest.watch.impress.co.jp/docs/serial/exceltips/1450472.html
こことかを参考に ⇔ での郵便番号と入力された住所との比較を考慮してみては?
もう全部00-00-00のカタチにしちゃいたい って場合は他の誰かが教えてくれるだろうからパスしとく
- 364 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 17:37:46.68 .net
- >>362
クエリーで、
事前にリストされた文字列変換表(例:丁目→-、番→-、号→"")を元に、
ある文字列(住所)の中身を検索して、変換する作業はできる。
自分では半角カナを全角カナに変換するのなんかに使っているけど。
VBAを使わないのであれば、ひょっとしたらこの手が使えるかも知れない。
ただし、地名の中には「番」が入っている(例:千代田区番町)ところがあるから、
工夫が必要。
参考
https://bunkyudo.co.jp/word-replace-powerquery-relaxtools-t-h/
- 365 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 17:43:31.06 .net
- >>364
数字以外を全部空白(削除)みたいなのは指定できそうですか?
自分としては数字だけを抜き出しでも充分だと思うのです
- 366 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 17:58:53.69 .net
- >>365
VBAなしだとかなり大変だね
住所の一部を誤修正したくなかったら「丁目」「番地」「番」「号」のそれぞれに対して
"0番"→"0-"
"1番"→"1-"
"9番"→"9-"
みたいな感じで数字込みの置換をずらっと並べて、最後に余分なハイフンを消す、しかないかもかなあ
- 367 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 18:03:10.01 .net
- >>365
「数字以外を全部空白」ということは、
○○(都道府県)&○○区または○○市&○○(町名)
を全部消すということだよね?
うーん・・・どうしようかねぇ・・・
市までだったら総務省の自治体コードで全国を把握できるので、
それと照合すれば切り出せるんだけど、
町名まで入ったリストとなると・・・
郵便番号では「その他」でひとくくりにしているところがあるから、
使えそうにない。
有料リストしかないのかしら?
と今クグってる途中だった。
「丁目」を手がかりに切り離すとしても、
そもそも丁目がない住所もあるし、
二丁目、三丁目と漢数字で全て表記されているとも限らないし。
さすがに「十二丁目」とかは存在しないのであれば
丁目の1文字前で切るとか?
「町名&98番地4」と全角アラビア数字になっていたら、
半角アラビア数字に変換する手間を入れてから、
ワークシート関数で数字だけ抜き出すとか・・・
なんて方法をぼんやり考えていた。
- 368 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 18:09:09.58 .net
- 面白そうなお題だけど、
結構厄介そう。
- 369 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 18:25:17.21 .net
- 住所って結構厄介だよね
京都の上ル下ルとかどこかにイロハとかもあったな
- 370 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 19:03:03.65 .net
- https://www.post.japanpost.jp/zipcode/zipmanual/index.html
の「6.バーコードに必要な文字情報の抜き出し法」は考え方の参考に多少なるかも
- 371 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 19:21:35.72 .net
- 例えば、住所がD3セルからD列下方にずらっと入力されてるとする
E3セルだけに、例えば上の例で大宮5丁目3番8号なら 538 と入力する
そのセルが選択されている状態で、[ホーム]-[編集]-[フィル]をクリックし、一番下のフラッシュフィルをクリック
一瞬で下まで抽出してくれる だけど、「数字だけを抜き出し」の要求しか満たさない 丁目・番とかハイフンも無くなる
- 372 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 19:23:29.19 .net
- 6本木と書くバカが居るから気を付けろ
- 373 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 19:26:52.40 .net
- 強盗するリストの加工の闇バイトか??
- 374 :名無しさん@そうだ選挙にいこう:2023/03/28(火) 19:29:58.27 .net
- 回答したら犯罪幇助になるん??
総レス数 1002
233 KB
新着レスの表示
掲示板に戻る
全部
前100
次100
最新50
read.cgi ver.24052200