有大文件需要从苹果电脑拷贝到pc机上，只能使用移动硬盘拷贝时发现文件无法拷贝到移动硬盘。
　　这是因为苹果系统不能写入NTFS文件系统，解决办法如下：

1. 将移动硬盘插入pc机上，同时按住win徽标键+R键后松开，出现运行提示框，输入diskmgmt.msc后点确定，打开磁盘管理
2. 在移动硬盘上有足够可用空间的分区上点击鼠标右键后选择--压缩卷
3. 在--输入压缩空间量（MB）--的输入框内输入需要使用的足够大的空间（单位兆字节）后点击压缩
4. 压缩完成后，在未分配空间上点击鼠标右键后选择--新建简单卷，然后一直点击下一页知道完成
5. 打开此电脑，在刚刚新建的磁盘分区上点击鼠标右键后选择--格式化
6. 文件系统格式修改为--exfat后点击开始
7. 完成格式化后即可把移动硬盘拔除，到苹果电脑上拷贝数据吧

　　全文结束，感谢阅读！

Sub 选中单列去重()
'
'选中单列去重 宏
'

'选中单列，去重删除整行，单独写一个不知道能不能提高效率

Dim i, j, rng As Range, dict As Object, fr, lr, res
'获取选中区域中已使用的区域
Set rng = Intersect(ActiveSheet.UsedRange, Selection)
fr = rng.Row
lr = fr + rng.Rows.Count - 1
'引用勾选：VBA窗体-工具-引用-勾选“Microsoft Scripting Runtime”
'生成字典
Set dict = CreateObject("scripting.dictionary")
For i = lr To fr Step -1
    res = CStr(Cells(i, j).Value)
    '如果字典中不存在键res则加入键res并赋值为""，否则删除当前行
    If Not dict.exists(res) Then dict(res) = "" Else Rows(i).Delete
Next

End Sub

Sub 选中区域去重()
'
'选中区域去重 宏
'

'可以选中单列或多列，去重删除整行

Dim i, j, rng As Range, dict As Object, fr, lr, fc, lc, res
'获取选中区域中已使用的区域
Set rng = Intersect(ActiveSheet.UsedRange, Selection)
fr = rng.Row
lr = fr + rng.Rows.Count - 1
fc = rng.Column
lc = fc + rng.Columns.Count - 1
'引用勾选：VBA窗体-工具-引用-勾选“Microsoft Scripting Runtime”
'生成字典
Set dict = CreateObject("scripting.dictionary")
For i = lr To fr Step -1
    res = ""
    For j = fc To lc
        res = res & CStr(Cells(i, j).Value)
    Next
    '如果字典中不存在键res则加入键res并赋值为""，否则删除当前行
    If Not dict.exists(res) Then dict(res) = "" Else Rows(i).Delete
Next

End Sub