
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
補足を見てもまだ曖昧さが残りますが、
こういうことでしょうか?
=IF(ISEVEN(LEN(A1)),IF(LEFT(A1,LEN(A1)/2)=RIGHT(A1,LEN(A1)/2),LEFT(A1,LEN(A1)/2),A1),A1)
> A1セルの「あいうあいう」を「あいう」
> A2セルの「かきくけかきくけ」を「かきくけ」
「あいうかあいう」「あいうういあ」などは削除しないということでよろしいのでしょうか?
No.3
- 回答日時:
A列にデータがあるとして
---------------------------
展開
C1に
=MID($A1,COLUMN()-2,1)
を横に文字数コピー
-----------------------------
必要文字
M1に(文字が多ければ右にずれます)
=C1
N1に
=IF(M1=D1,"",D1)
O1に(右へコピー)
=IF(SUMPRODUCT((E1=$M1:N1)*1)>0,"",E1)
-----------------------------------
必要列計算(そのままの列)
W1に(右へコピー)
=IF(M1="",10000,COLUMN()-10)-10
-------------------------------------------
必要列計算(つめ)
AI1に(右へコピー)
=SMALL($W1:$AF1,COLUMN()-34)
-------------------------------------------
結果
AR1に(右へコピー)
=IF(AI1<9000,INDIRECT(ADDRESS(ROW(),AI1)),"")
No.2
- 回答日時:
こんばんは!
VBAなら簡単にできますが、VBA以外の方法をご希望だというコトなので・・・
一例です。
↓の画像のようにD列以降を作業用として使用しています。
(とりあえず、10文字まで対応できるようにしました)
D1セルに
=LEFT(A1,1)
E1セルに
=IF(COUNTIF($D1:D1,MID($A1,COLUMN(B1),1)),"",MID($A1,COLUMN(B1),1))
という数式を入れ右へフィル&コピー!
D1~最終列までを範囲指定 → 最終列のフィルハンドルで下へコピーしておきます。
そして、B1セルに
=D1&E1&F1&G1&H1&I1&J1&K1&L1&M1
という数式を入れフィルハンドルで下へコピー!
これで画像のような感じになります。
※ 余計なお世話かもしれませんが、自分であればこの質問限定の関数(ユーザー定義関数)を作ります。
標準モジュールに↓のコードをコピー&ペースト
Function myStr(c As Range)
Dim k As Long, buf As String
For k = 1 To Len(c)
If InStr(buf, Mid(c, k, 1)) = 0 Then
buf = buf & Mid(c, k, 1)
End If
Next k
myStr = buf
End Function
そして通常のワークシート関数と同じ使い方をします。
B1セルに
=myStr(A1)
という数式を入れ、フィルハンドルで下へコピー!
※ 注意点 ※
A列の同セル内に 1や12のように文字列があると、「1」が重複されていると判断されます。m(_ _)m

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
同じセルで重複している文字を削除したい
Excel(エクセル)
-
エクセル セル内の重複する文字列を削除する方法
その他(Microsoft Office)
-
エクセルのセル内の重複文字列処理について
その他(Microsoft Office)
-
-
4
同一セル内での重複削除
その他(Microsoft Office)
-
5
Excel 文字列を結合するときに重複をなくしたい 関数・VBA
Excel(エクセル)
-
6
エクセルでセルの中身が漢字かどうか識別する方法は?
Excel(エクセル)
-
7
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
8
Excelのセル内文字の並び替えについて
Excel(エクセル)
-
9
エクセルVBAで文字列の重複を削除する方法?
Excel(エクセル)
-
10
Excelで重複データの件数ではなく、何番目かを求める方法
Excel(エクセル)
-
11
リストと一致する値のセルを塗りつぶしたい。
その他(Microsoft Office)
-
12
エクセルでセル内改行の複数行目だけ抜き出す関数は?
Excel(エクセル)
-
13
セル入力文字が、「右のセルにはみ出す場合と」「はみ出さない場合」の違い
Excel(エクセル)
-
14
EXCELで、漢字のみ抽出する式を教えてください。
Excel(エクセル)
-
15
エクセルのピボットテーブルの書式設定が、データ更新のたびに元に戻る
Excel(エクセル)
-
16
リンク元の日付が空白の時リンク先セルも空白にしたい
Excel(エクセル)
-
17
エクセルのセル内の行の並び替えについて
Excel(エクセル)
-
18
Excel vbaで特定の文字以外が入っている時、メッセージを表示させるプログラムについて
Visual Basic(VBA)
-
19
Excel に貼り付けた図形が、保存した後、再度、開くと勝手に動いている。
Excel(エクセル)
-
20
エクセルで重複データを行ごとに抽出したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SUMIF関数で、「ブランク以外を...
-
自分の左隣のセル
-
エクセル1行おきのセルを隣の...
-
エクセルで、指定の値よりも大...
-
文字列から英数字のみを抽出す...
-
セルを結合した時のエクセル集...
-
EXCELのcountif関数での大文字...
-
エクセルで特定のセル内にだけ...
-
excelで、空白を除いてデータを...
-
同一セル内の重複文字を削除し...
-
エクセルに入力後、別シートの...
-
Excelで大量のセルに一気に関数...
-
週の労働時間を計算するエクセル
-
EXCELでマイナス値の入ったセル...
-
エクセルで年月日から月日のみへ
-
エクセル関数/任意の桁数の数...
-
エクセル シート全体の項目をカ...
-
エクセルである行番号より上の...
-
エクセルで、A2のセルにA3...
-
=SUBTOTAL に =COUNTIF の機能...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SUMIF関数で、「ブランク以外を...
-
文字列から英数字のみを抽出す...
-
自分の左隣のセル
-
excelで、空白を除いてデータを...
-
セルを結合した時のエクセル集...
-
エクセル1行おきのセルを隣の...
-
EXCELのcountif関数での大文字...
-
同一セル内の重複文字を削除し...
-
エクセルで特定のセル内にだけ...
-
エクセルで、指定の値よりも大...
-
週の労働時間を計算するエクセル
-
EXCELでマイナス値の入ったセル...
-
エクセルで、A2のセルにA3...
-
【Excel】4つとばしで合計する方法
-
エクセルに入力後、別シートの...
-
条件付き書式の色付きセルのカ...
-
エラー「#REF」の箇所を置き換...
-
エクセルで年月日から月日のみへ
-
エクセル 12進数
-
一時間当たりの製造数を調べた...
おすすめ情報
書き方が悪かったです、すみません。
A1セルの「あいうあいう」を「あいう」
A2セルの「かきくけかきくけ」を「かきくけ」
にしたい、という意味でした。