[過去ﾛｸﾞ] Excel総合相談所 140 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
15(1): 2020/07/21(火)21:05 AAS
いいですよ！
16(2): 15 2020/07/21(火)22:13 AAS
>>2>>14
様、大変長らくお待たせ致しました
以下がコードになりますのでご査収下さいませ
よろしくお願い致します
記
Sub Macro1()
不要な列を削除するための見出し = "aaa"
最終列 = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 最終列 To 1 Step -1
If Cells(1, i).Value = 不要な列を削除するための見出し Then
省4
17: 4 2020/07/21(火)22:20 AAS
>>16
ありがとうございます。
試してみたいと思います。
18(4): 2020/07/21(火)22:59 AAS
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2019
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
１つの列にデータがずらっと並んでいて、そこから重複していないデータだけを別のシートに抽出する方法を教えてください
りんご
りんご
バナナ
みかん
みかん
省1
19: 2020/07/21(火)23:08 AAS
>>18
作業列を作る
ifとcountifで重複ありを0、重複なしを1
もう1列作業列を作る
ifで1の場合rowを返す
もう1列作業列を作る
rowをrank付けする
別シートの列に
1
2
省4
20: 2020/07/21(火)23:10 AAS
>>18
countifで1を出す
その後、フィルタで抽出してコピーペースト
https://i.imgur.com/ewsZgaG.png
21: 2020/07/21(火)23:18 AAS
if(countif(A:A、A1)=1、MAX($B$1,B1)+1、“”)
で上から1、2、3…って数字つける
それからIndex MATCH
22: 2020/07/21(火)23:20 AAS
被ったし回答し直すか、と思ったらまた被って俺は
https://i.imgur.com/BDIp5Ig.png
ただこのやり方ってなんとなくindexmatchがなんとかなりそうな気はする
23: 2020/07/21(火)23:22 AAS
ルックアップでりんごとかのカズ数えて一個しかない奴を再度ルックアップすれば良い
24: 2020/07/21(火)23:22 AAS
もっとよくやるのは
countif($A$1:A1,a1)
で初登場を集める方法
25(2): 2020/07/21(火)23:23 AAS
すみませんが、VBSはちょっと、、、
VBAを使わない方法はないでしょうか。
26: 2020/07/21(火)23:25 AAS
>>25
ビデオもマクロも使ってない
27(1): 2020/07/21(火)23:27 AAS
>>25
>>4の方？
・全体をコピーして行列を入れ替えて貼り付け
・元見出しだった1行目はA列になるので、A列で不要な見出しでフィルタリング
・フィルタしたものを削除し、フィルタ解除
・もう一回行列入れ替えて貼り付け
これ以上は難しいかな
28: 4 2020/07/21(火)23:45 AAS
>>27
すごい。
明日試してみたいと思います。ありがとう。
29: 2020/07/21(火)23:56 AAS
>>18です
方法教えてくれてありがとうございます
作業列作って計算するしかなさそうですね
365のunique関数が欲しい…
30: 2020/07/22(水)00:40 AAS
作業列無しで関数で出す方法もあるけどメタクソ長い関数になるから作業列作ったほうが楽
31(1): 2020/07/22(水)01:07 AAS
>>18
2007以降ならリボンのデータから重複の削除アイコンかある
32: 2020/07/22(水)04:10 AAS
>>31
リンゴとか2つ以上あるやつはリンゴ1つにするのではなく、無視する方法を知りたいようだぞ
33(1): 4 2020/07/22(水)05:20 AAS
>>16
> >>2>>14
> 様、大変長らくお待たせ致しました
> 以下がコードになりますのでご査収下さいませ
> よろしくお願い致します
>
> 記
>
> Sub Macro1()
> 不要な列を削除するための見出し = "aaa"
省8
34: 2020/07/22(水)05:32 AAS
>>33
select case
上下前次1-新書関写板覧索設栞歴
あと 968 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.031s