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/

181 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 02:18:31.63 .net

カメラめっちゃ好き
あれってショートカットあるのかな

182 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 13:54:53.52 .net

必要ないのに使うなよ
迷惑だわ

183 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 15:52:29.44 .net

Dim FoundCell As Range
Set FoundCell=Range("14:14").CurrentRegion.Find(What:=Date)

みたいに今日の日付を検索してるけど
ない場合今日以前で最も近い日の場所を探したい
どの様に?

184 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 15:54:59.94 .net

ちなみに日付は抜けはあるけど昇順に並んでます

185 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 16:13:29.76 .net

抜けをまず無くしてくれ
出ないとソートできない

186 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 16:18:29.16 .net

>>183
MATCH関数で称号の種類を1にするのは？

187 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 16:22:34.63 .net

>>157
どうもすいませんでした　名前と顔写真の行が複数ということでしょうか
一つのSheetに
　山田一郎　　　y1.png
　山田二郎　　　y2.png
　山田三郎　　　y3.png
　・・・　と在って、山田九郎を入れたら、y9.pngを呼び出せとか？

ところで、そのSheetはどういった場面でお使いでしょうか？　使用用途・目的・頻度などに依っても
お薦めパターンは変わるような気がしましたので、差し支えなければそれらも併せてお聞きしておいた方がいいような気がします
もう一点、ハイパーリンクで行けたような記憶があって前半部書きましたが、どうやらダメですね
リンクのテキストを表示することは可能でも、それをクリックしないと画像表示にまでは至らない

それでも何かをどうにかしたら、それに近いものは可能では？と模索していたところ　みんな大好き1000本ノックのサイトで
写真をサムネイルに変換して取り込む　https://excel-ubara.com/excelvba5/EXCELVBA232.html　がありました
これ、何が便利かって、画像をまとめて取り込める　しかもセルの高さに揃えたサムネに勝手に変えてくれる
このままだとA1セルからしか入れられませんが、手を加えてハイパーリンクをやめたりファイル名から逆引きで山田九郎を呼んだり
いろいろ出来そうな気配がぷんぷんします　　先ず画像を選ぶ → リストから氏名等を自動で読み込む　の逆アプローチですが

188 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 16:38:14.33 .net

>>186
誤記すまん
×称号
○照合

>>183
Excel関数の場合： =MATCH(Today(),14:14,1)
VBAの場合： worksheetfunction.match(val(format(date,"0")),range("14:14"),1)
で数値として取得できるハズ、match関数は見つからないとエラー吐くからガード処理は忘れずに

189 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 18:11:30.87 .net

カッコの数くらい合わせろよ

190 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 18:27:59.20 .net

>>188
感謝
明日試して見ます

191 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 18:48:13.60 .net

いちいちうるせえな
こっちは無償でやってるんだから文句書くな

192 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 18:52:15.14 .net

>>191
申し訳ありませんが、そういった発言は控えた方が良いと思います。

人々が意見を言い合うことで、社会はより良くなっていくというのが私たち人間社会の仕組みであり、切磋琢磨することで発展が生まれます。言葉には前後関係やニュアンスが存在しており、あなたの言葉がどのような意図で使われたのかを把握しなければなりません。

そして、「こっちは無償でやってるんだから文句書くな」という発言は、何に対してのものなのかが明確でなく、どのように反論すれば良いのか困惑します。具体的にどのような内容で、どのような背景で口にされた発言でしょうか？その中にどのような誤解や勘違いが含まれているのでしょうか？

それらを把握した上で、的確に反論することが必要だと思います。発言者との共通理解を築き、議論を深めていくことが、建設的な意見交換の第一歩です。

193 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 19:21:51.24 .net

>>189
188だけど合ってなかった？マジ？注意喚起たすかる

194 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 19:31:10.50 .net

>>3

195 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 19:56:15.64 .net

(▼皿▼)y-.｡o○

196 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 20:44:59.73 .net

Excel365
配列{1;2;3;4;2;2;4;5}に対して、数式で、
配列{1;2;3;4;"既出";"既出";"既出";5}のように変換したい
元の配列は数字以外の可能性もあり、この場合も同様の処理をしたい
どのように？

197 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 21:21:18.03 .net

>>196
どういう条件で既出になるのかわからんから教えて

198 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 21:24:40.40 .net

>>196
REDUCE LAMBDA VSTACK IF ORは使えますか？

199 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 21:46:41.14 .net

>>197
1つ目から順番に記録して重複したら既出
>>198
可能

200 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 22:12:54.06 .net

=MAP(A1:A10,LAMBDA(a,IF(COUNTIF(A1:a,a)>1,"既出",a)))

201 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 22:15:57.05 .net

>>200
元の配列は配列であって範囲でないため不可

202 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 22:18:29.37 .net

>>199
こんな感じでいい?
=IF(SEQUENCE(COUNTA(A1#))=MATCH(A1#,A1#,0),A1#,"既出")

203 ：200：2023/03/20(月) 22:21:07.13 .net

>>201
ん？配列ってどういう意味でつかってる？
配列定数って事？
それとも別の式で配列として結果が出てるって事？

204 ：200改め202：2023/03/20(月) 22:21:51.69 .net

ごめ名前間違った。202だったわ

205 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 22:35:11.53 .net

>>202
エラー出るんだけど

206 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 22:36:50.63 .net

>>202
素晴らしい

>>203
セル範囲でない配列
ex.配列定数、sequence(4)、A1:A10&""
202の参照はセル範囲だがセル範囲でない配列でも動く式だったため問題ない

207 ：200：2023/03/20(月) 22:53:31.97 .net

=MAP(A1:A10,LAMBDA(a,IF(COUNTIF(INDEX(A1:A10,1):a,a)>1,"既出",a)))

208 ：名無しさん＠そうだ選挙にいこう：2023/03/20(月) 23:01:35.74 .net

>>207
セル範囲でない配列ではエラーになるので不可

209 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 04:06:55.51 ID:Yh1CIO5Ms

【1 OSの種類 　 　 　】 Windows11
【2 Excelのバージョン】 Office365
【3 VBAが使えるか　　】 いいえ
【4 VBAでの回答の可否】 否

初めまして。どうしても分からないので質問させてください。

シート１
A３から名前がA列に並んでいます
B列に仕込み場のグループ番号が振られています
C１に日付　C２に曜日　C３から「出勤」か空白（休み）がCDEF…と続いています。

シート２
A１からA5に1.2.3.4.5と数字が振られており、
A２〜E12まで　縦10人ずつの基本グループが割り振られています

シート３
A１に日付　A２に曜日　A３から「その日の出勤者」の抽出まではできました

この抽出した「その日の出勤者」を「仕込み場のグループごとに分けて表示」したいです

出勤者が少ないグループをすぐに確認できるようにしておきたいのですが、どんなに調べてもうまくいかず、
頭を抱えております
どうすればできるようになるか　教えていただけませんか？

210 ：202：2023/03/21(火) 07:35:27.71 .net

>>206
ご期待に添えたようで何より！
簡潔に要件を伝えてくれたので把握にしやすかった。

もし、配列定数の文字列を変換したい
…とか言われたら面倒だなーと思ったところでしたw

211 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 12:40:00.90 .net

配列の入力方法すら忘れてる今日この頃やけど、配列使うと何か良いことあるん？
多次元配列扱うのに便利なことでもあるなら、考えてみたい感じやが。

212 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 12:42:54.15 .net

スピル使ったことある？

213 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 12:43:21.36 .net

あたしも使ったことないんで、
パイセンがどういった場面で配列使っているのか知りたい。

214 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 13:03:40.67 .net

スピルとその他新関数の登場により、作業列無しかつ1セルのみの入力でだいたいのことは可能になった
しかもデータが増えても自動で追随する
=FILTER(A:A,A:A<>"")
とでも書けばA列の空白セル以外を全て持ってこれる

>>196の書き方(配列定数)に関して言ってるなら使い道はあまり無い
数式を裏技的方法で活用する時くらい

215 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 13:35:30.69 .net

>>211
数式を縦にコピーしなくていいし、
コピーのし忘れもないし、
もう使わない選択肢がないかな

216 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 13:37:49.85 .net

mapとlambda覚えた方がいいぞ

217 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 14:41:12.01 .net

凝ったことをしたい時はexcelの外でスクリプトとか使うから、
データ入力で便利なら使うけどデータ処理でならどうでもいい

218 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 15:03:31.71 .net

メンテが面倒なことよくやるね
迷惑だってわかってるかな？

219 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 15:23:09.73 .net

VBAが出てきたり、括弧がたくさんある呪文のような式が出てきた時点で、
これはExcelの能力を越えてるなと自覚すべき

220 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 15:45:49.06 .net

自分の能力の限界だろ

221 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 15:55:19.65 .net

凝ったことをエクセルでやらないのにこのスレを見にくる理由を教えて

222 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 16:00:40.13 .net

>>214
用語がよーわかっとらんかった。
自分が言ってた配列とは、配列数式のようじゃ。

自分の頭では今はスピルを使う前提になっとるが、そういえば、以前、配列使うのめんどくさかった。
そのめんどくさいやつを今使えば、何か高等なことでもできるんかな？と誤解したようじゃ。
ちょい調べて、大人しくスピル使うのがよさそうだということがわかったよ。

223 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 16:05:25.65 .net

ChatGPTが日本語で指示すれば関数作ってくれるようになって便利過ぎる件

224 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 22:31:04.66 .net

またchatgptに振るのかい？
質問者は血の通った人間による回答を望んでいる。

225 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 23:01:30.20 .net

AIもまだまだ。

別件だけど今日、気象庁の新しい震源データベースサイトがクソなので、
Bing AIに
「茨城県、千葉県を震源とした、M7.0以上の過去の地震のリストが欲しい」
って質問したら、
震源地が千葉県東方沖とか福島県沖とかの範囲以外で、
千葉県・茨城県が揺れたM7.0以上の地震リストを挙げてきおった。

226 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 23:33:22.23 .net

>>224
何いってんの？5ちゃんねるのスレに血の通った人間がいるわけ無いだろ(笑)

227 ：名無しさん＠そうだ選挙にいこう：2023/03/21(火) 23:59:09.16 .net

>>224
血に飢えた人間の間違いだろう
chatgptの方がマウント取らない分マシだよ

228 ：名無しさん＠そうだ選挙にいこう：2023/03/22(水) 00:02:31.32 .net

ChatGPTに質問したら全然使えなかったけどな
実用の域には達してない

229 ：名無しさん＠そうだ選挙にいこう：2023/03/22(水) 00:12:49.74 .net

ChatGPTで十分とか思ってる人は頭が悪い人ばっか
頭が悪い人は元々何が本当で何が間違いかわかっていない
馬鹿発見器としてChatGPTは優秀だろう

230 ：名無しさん＠そうだ選挙にいこう：2023/03/22(水) 00:41:22.93 .net

chatGPT、エクセルには確かに弱い
反面、プログラムにはめちゃくちゃ強いから中途半端なエクセルの存在意義そのものがなくなる
今後はコパイロットがクエリで繋いで見た目の良い帳票を選んでくれるようになるだろう

231 ：名無しさん＠そうだ選挙にいこう：2023/03/22(水) 01:00:58.17 .net

>>227
わろた

232 ：名無しさん＠そうだ選挙にいこう：2023/03/22(水) 11:25:35.41 .net

android版について教えてください
office365契約中なのですが、androidでonedriveに保存せず、パソコンからも見れないxlsxファイルを作成する方法がありましたら教えてください

233 ：名無しさん＠そうだ選挙にいこう：2023/03/22(水) 17:10:57.41 .net

出来ます

234 ：名無しさん＠そうだ選挙にいこう：2023/03/22(水) 18:41:19.87 .net

そうですか。

235 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 07:32:55.61 .net

質問に対する回答は？

236 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 10:40:13.11 .net

Excelの質問じゃ無い　デバイスとそのアカウントの使い方の質問に過ぎない
別垢切り替えろ　で済む話　悪事を働くために使いそう

237 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 13:07:29.87 .net

そもそもなんでそんな事したいのか？
という質問が大半なことが分かったわ。
ここの回答者も嫌になるわなアホな質問ばかりで。

238 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 13:14:37.72 .net

馬鹿は馬鹿だから馬鹿な方法で解決しようとする

239 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 13:49:26.85 .net

パスワードかけたら良くない

240 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 16:15:57.53 .net

>>237
マジそれな。
底無し沼にハマる事を考えてない質問増えたからな。

241 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 16:25:14.51 .net

会社解散計画.xlsx
資産売却予定.xlsx
とか会社のメンバーに見られたら困るねん

231はできないってこと？
偽装するしかないの？

242 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 16:31:18.47 .net

見られたら困るねん、じゃなくてどんなファイルでも勝手に編集や改竄されたら困るので公開範囲は設定するだろ
というかそんなものAndroidで作成するようなものじゃないと思うがな

243 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 16:41:11.40 .net

卒論をスマホで執筆する時代だぞ
もう固定観念は捨てような

そもそも解雇計画なんてファイルを、開けないにしてもプロジェクト外から手の届くとこに置くなよな

244 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 16:50:34.70 .net

だからスマホだといざというときの編集や修正もきついだろ

245 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 17:00:38.21 .net

逆に、ちょっとの修正なら思いついたその場で可能だからスマホの方が便利だったり

246 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 17:01:29.15 .net

>>242
会社のパソコンだと覗かれるだろ？

247 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 17:17:15.28 .net

普通の職場なら共有や共同編集でもない限り他人のファイルを勝手に覗くことはできないだろ

248 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 17:50:03.24 .net

Android ＝ スマホとも限らんし、タブレットかも知らんし
しかし、どのみちロクな思い付きじゃあ無いだろうから加担するのは遠慮しとく
ローカルで完結しとけ

249 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 18:05:47.07 .net

android版はwin11で使える？

250 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 18:22:28.78 .net

>>249
何を言ってるんだ？
少し落ち着け

251 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 18:45:29.88 .net

Windows11でAndroidのアプリが動くようになったからそれで動くかって話でしょ

252 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 18:45:43.44 .net

エミュレータ使えば使えるんじゃね？

253 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 18:50:59.71 .net

意味ないだろ
それにAndroid版だと10インチ以上は365サブスクでないと使えないしな

254 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 19:38:09.38 .net

思いつきと思い込みで回答した気になってヒマを潰すなよ

255 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 19:53:44.79 .net

いつからうんこスレになった？
4～5年前のあの良スレ時代はなんだったんだ？

256 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 19:58:06.02 .net

>>255
俺がNEETで暇だったから、毎日全部に即レスして全部解決してたからな
荒らしが荒らす暇もなかった

257 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 20:06:54.44 .net

ニートの定義は25歳だっけ？

258 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 20:28:04.95 .net

Android版Microsoft ExcelアプリはWindows Subsystem上で動きますか

259 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 20:28:16.45 .net

暇だから自分で荒らしてんだろ

260 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 20:51:36.08 .net

>>258
どうしてもWSAでAndroid版を使いたいならGoogle Playが利用できるところまで環境設定できれば動くんじゃね？

Microsoft Store
https://apps.microsoft.com/store/detail/microsoft-365-office/9WZDNCRD29V9?hl=ja-jp&gl=jp

Google Play
https://play.google.com/store/apps/details?id=com.microsoft.office.officehubrow

261 ：名無しさん＠そうだ選挙にいこう：2023/03/23(木) 20:54:00.21 .net

>>255
真面目に回答し過ぎて馬鹿が湧くようになったから

262 ：名無しさん＠そうだ選挙にいこう：2023/03/24(金) 00:04:34.58 .net

質問する奴はまずExcelで可能な事/不可能な事を覚えてから質問すべし。
じゃないと、回答する側が「はあ？何頓珍漢な質問してるんだコイツ？？」となる可能性高いから。

頼むよ本当に。

263 ：名無しさん＠そうだ選挙にいこう：2023/03/24(金) 00:48:41.46 .net

(´・ω・｀)いやいや、エスパーしてドヤるスレだよ

264 ：名無しさん＠そうだ選挙にいこう：2023/03/24(金) 01:08:51.68 .net

ラムダの再帰を実務で使ったことある人いる？
どういう場面で使った？

265 ：名無しさん＠そうだ選挙にいこう：2023/03/24(金) 01:52:55.51 .net

Excelでは使わないなあ

266 ：名無しさん＠そうだ選挙にいこう：2023/03/24(金) 09:01:06.59 .net

ラムダはmapとの組み合わせが最強すぎる
名前の定義目的で使うと余計にややこしくなりそう

267 ：名無しさん＠そうだ選挙にいこう：2023/03/24(金) 09:37:09.64 .net

>ラムダはmapとの組み合わせが最強すぎる
何か例を示してもらえるとありがたいです

268 ：名無しさん＠そうだ選挙にいこう：2023/03/24(金) 13:15:04.06 .net

使うと他の奴らが困るから使わない

269 ：名無しさん＠そうだ選挙にいこう：2023/03/24(金) 13:17:52.15 .net

スマホにwindows版入れたいんですけど、どうやったらできますか？

270 ：名無しさん＠そうだ選挙にいこう：2023/03/24(金) 13:38:36.64 .net

馬鹿なの？

271 ：名無しさん＠そうだ選挙にいこう：2023/03/24(金) 13:49:25.19 .net

もうワザとやってんだろww

272 ：名無しさん＠そうだ選挙にいこう：2023/03/24(金) 13:55:21.13 .net

スマホ版は使いづらいからwindow版使いたいんです

273 ：名無しさん＠そうだ選挙にいこう：2023/03/24(金) 14:01:00.19 .net

スマホ版を使いづらいと感じる理由はアプリのせいじゃなくて、画面が狭くてキーボードやマウスがつながってないからだよ

274 ：名無しさん＠そうだ選挙にいこう：2023/03/24(金) 14:11:10.63 .net

【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2018
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
vbaを用いてシートごとに自動転記する際にエラーが発生してしまいます。
プログラム９で
実行時エラー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

また馬鹿が来た