※このツールはWebページ用でゲーム本体にはアクセスはしないので
規約には引っかからないという認識ですが
私が個人的に思っているだけで、公式的にはアウトの可能性もありますので
使用する際はお気を付けくださいリテイナー間でアイテムが分散して枠を圧迫しているのでどうにかしたい
と思って検索してみたらこんな日記を見つけました
Lucky Bancho様
Lodestone用リテイナー所持アイテム重複確認ブックマークレット
https://jp.finalfantasyxiv.com/lodestone/character/1684254/blog/3956689/うむ。これは便利だ
ただ、このままだとどうしてもわかりにくい
どうにかできないものかと思ってExcelでマクロを作ったｗ
マクロはできるだけ何をしているかわかりやすいように組んだつもりｗ
流れとしては上の
日記にあったツールで重複表示させる
重複アイテムをコピーしてExcelのSheet1のA1セルに貼付する
下図の範囲を選択してコピーです
Excelにシート（Sheet2）を足す
文末のマクロを実行する
するとSheet2にこんな感じで整理されます
あとはこれを見てチェックしながら整理すればOK
ソートすればもう少し見やすくなります
リテイナーの所持品の更新はリアルタイムじゃないので
時間があるときに数日に分けてアイテム移動させる感じになるんじゃないかと思います
（実は元がぐちゃぐちゃすぎたのでこの状態で三日目）
Excel用マクロ
Sub Item_Check()
Dim i, j As Long
Dim WCount As Long
Dim W_CLM As Long
Dim EndRow As Long
Dim R_TEMP As String
Dim RST As Worksheet
Dim WST As Worksheet
Set RST = ThisWorkbook.Sheets("Sheet1")
Set WST = ThisWorkbook.Sheets("Sheet2")
EndRow = RST.Range("A1750").End(xlUp).Row
For j = RST.Shapes.Count To 1 Step -1
RST.Shapes.Item(j).Delete
Next
WCount = 2
W_CLM = 1
WST.Range("A1:I175").Value = ""
For i = 1 To EndRow
If RST.Cells(i, 1) <> "" Then
R_TEMP = RST.Cells(i, 1).Value
If InStr(1, R_TEMP, "(") <> 0 Then
WST.Cells(WCount, W_CLM) = Left(R_TEMP, InStr(1, R_TEMP, "(") - 1)
Else
WST.Cells(WCount, W_CLM) = R_TEMP
End If
W_CLM = W_CLM + 1
Else
WCount = WCount + 1
W_CLM = 1
End If
Next
End Sub
