vba纯小白，给学校排课时经常要调换课，交换两个单元格内容时提醒内存不足

罗瑞环

vba纯小白，给学校排课时经常要调换课，查了一堆代码后交换两个单元格内容时提醒内存不足


Sub 读取()
    Dim m As Long
    Dim n As Long
    [a5] = ActiveCell.Cells   '获取选中单元格内容
    m = ActiveCell.Cells.Row '获取选中单元格的行编号  数值
    n = ActiveCell.Cells.Column '获取选中单元格的列编号  数值
  
End Sub


Sub 交换()
    [a10] = ActiveCell.Cells   '获取选中单元格内容
   
    ActiveCell.Cells = [a5]
     Cells(m, n) = a10
End Sub

罗瑞环

想着同时选中俩个单元格，然后一键交换。查了一圈没找到能这样解决的。

小凡、、、

你似乎把问题想复杂了

yynrzwh

Sub test()

If Selection.Count = 2 Then
    str1 = Selection.Areas(1)
    Selection.Areas(1) = Selection.Areas(2)
    Selection.Areas(2) = str1
End If

End Sub

longwin

提示内存不足的原因，从图片上看似乎是选中了整个的E列造成。
你可以把你要实现的功能描述一下，大家帮你写写看。

罗瑞环

小凡、、、 发表于 2024-5-16 19:58
你似乎把问题想复杂了

解决啦，感谢！