请教老师，如何把E列的数据转移到D列对应的空白处

vbahappy

请教老师，如何把E列的数据转移到D列对应的空白处呢？

问题.rar (5.84 KB, 下载次数: 12)

2024-4-5 08:03 上传

点击文件名下载附件

swl4561255

一、选中D列，按F5，定位条件-空值。
二、在编辑栏中输入：=E6。
三、按CTRL+回车
四，选中E列，复制，选择性粘贴，数值。
五、删除E列。OK!

ooluckydog

Sub MoveText()

    Range("E:E").SpecialCells(xlCellTypeConstants).Offset(0, -1) = Range("E:E").SpecialCells(xlCellTypeConstants)
    Range("E:E").SpecialCells(xlCellTypeConstants).Clear

End Sub

沈默00

这个不需要VBA，二楼老师的方法最好了，记得删除E列之前，要把D列数据复制再粘贴为数值到原位置

咔咔乱坠

函数，下拉
=D1&E1

vbahappy

谢谢各位老师，二楼老师的方法我用过，但D列下面所有空格都会有公式生成0的数值；三楼老师的方式就很简单而且不会产生这个问题，谢谢所有老师的帮助

vbahappy

ooluckydog 发表于 2024-4-5 08:17
Sub MoveText()

    Range("E:E").SpecialCells(xlCellTypeConstants).Offset(0, -1) = Range("E:E").Sp ...

ooluckydog老师，因为我的文件都是网上复制过来的，我发现E列必须先用：数据--分列--完成后，才能正常使用，否则，运行后D列的数据全部会变空，有什么办法可以解决吗？

ooluckydog

vbahappy 发表于 2024-4-5 09:17
ooluckydog老师，因为我的文件都是网上复制过来的，我发现E列必须先用：数据--分列--完成后，才能正常使 ...

单元格中是不是有换行符
可以试试在前面一句把换行替换为空
Range("E:E").Replace Chr(10), ""

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, i&
   
    Application.ScreenUpdating = False
   
    With Range("D1", Cells(Rows.Count, "D").End(xlUp))
        ar = .Value
        For i = 1 To UBound(ar)
             If Len(ar(i, 1)) = False Then
                 .Cells(i, 1).Value = .Cells(i, 1).Offset(, 1).Value
                 .Cells(i, 1).Offset(, 1).Value = Empty
             End If
        Next i
    End With
   
    Application.ScreenUpdating = True
    Beep
End Sub