12,665
回編集
差分
ナビゲーションに移動
検索に移動
編集の要約なし
==Excel VBA Utility==
[[Excel VBA]]{{category VBAソース片}}
===basUtil===
End If
If Right$(result, 1) <> <> DIR_SEP Then
result = result & DIR_SEP
End If
If Not isBlank(Trim$(rootDir)) _
And ("A" <<= drv And drv <<= "Z") _
And (Mid$(rootDir, 2, 1) = ":") _
Then
For i = LBound(values) To UBound(values)
For j = i + 1 To UBound(values)
If StrComp(values(i), values(j), vbTextCompare) > > 0 Then
tmp = values(i)
values(i) = values(j)
Dim curVal As String
For i = LBound(tmp) To UBound(tmp)
If i > > LBound(tmp) Then
If curVal = tmp(i) Then
ReDim Preserve duplicatedItems(dupIdx)
© 2006 矢木浩人
