| |
はじめまして。
今テキストファイルを読み込んで、Ａ列に人名、Ｂ列に和暦の年月日、Ｃ列に合計スコアＤ列に１ゲームのスコア、Ｅ列に２ゲームのスコア、Ｆ列に３ゲーム目のスコアを取り込むソフトを作っています。このテキストファイルには、同じ名前(同一人物)が２度記載されてることがあります。そこで、年月日の新しい物だけをエクセルに取り込みたいです。今は、
Private Sub CommandButton1_Click()
Dim AA As String, BB(6) As String,Dim X As Long
Open "A:得点一覧.txt " For Input As #1
Do Until EOF(1)
Line Input #1, AA
X = X + 1
BB(1) = Trim(Mid(AA, 1, 10))'------------------------人物名
BB(2) = StrConv(Trim(Mid(AA, 11, 10)), vbNarrow)'----和暦の年月日
BB(3) = StrConv(Trim(Mid(AA, 21, 5)), vbNarrow)'-----合計得点
BB(4) = StrConv(Trim(Mid(AA, 26, 5)), vbNarrow)'-----１ゲーム目の得点
BB(5) = StrConv(Trim(Mid(AA, 31, 5)), vbNarrow)'-----２ゲーム目の得点
BB(6) = StrConv(Trim(Mid(AA, 36, 5)), vbNarrow)'-----３ゲーム目の得点
Cells(X, 1) = BB(1)
Cells(X, 2) = BB(2)
Cells(X, 3) = BB(3)
Cells(X, 4) = BB(4)
Cells(X, 5) = BB(5)
Cells(X, 6) = BB(6)
ActiveSheet.UsedRange.Columns.AutoFit
Loop
Close #1
End Sub
として、全部を読み込むことはできたのですが、この後、Ａ列に同じ文字列があるかの検索と、在った場合のその後Ｂ列での年月日の比較、さらにその後のＣ〜Ｆ列へのＢ列で年月日が新しかった方の格納方法がわかりません。よろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
