导入照片名，并按照正确逻辑排序

Tongbaby2020

我从文件夹中导入照片名，但是正常A1~A20肯定是没有问题的，但是遇到A_1~A_20这种情况的时候，系统就会把A_11排在A_2的前面，请帮忙解决一下这类问题，谢谢！原代码如下！



Private Sub CommandButton1_Click()
    [b2:b65536].ClearContents
    h = 2
    f = Dir(ThisWorkbook.Path & "\*.jpg")
    Do While f > " "
        If f <> ThisWorkbook.Name Then
            ed = [b65536].End(3).Row + 1
            
            ee = Split(f, ".jpg")  '去掉文件后缀
            ff = Split(ee(0), "\") '去掉文件下划线
            Cells(h, 2) = ff
            h = ed + 1
        End If
        f = Dir
    Loop

End Sub

3190496160

如果文件名称中-前面的内容是一致的话，代码窃取-后面的字符，冒泡法排序即可

sunshuangzhong

分列，自己排序一下再自己组合一下就行了

tspliu

可用以下两种方式解决
1、自动按顺序生成文件名，判断文件是否存在，若存在则在单元格中保留文件名。
2、文件名拆分成头尾两个部分，排序。