求修改简单代码

lagos

当A列为空时，删除掉A列为空的同行的B列的字符，求修改简单代码 请修改代码AB.rar (11.97 KB, 下载次数: 18)

2023-5-26 15:16 上传

点击文件名下载附件

yuyubiao

1. 你可以使用以下VBA代码来实现你的需求：
   
2. 
   
3. Sub DeleteEmptyCells()
   
4.     Dim lastRow As Long
   
5.     Dim i As Long
   
6.    
   
7.     lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row '获取最后一行的行号
   
8.    
   
9.     For i = lastRow To 1 Step -1 '从最后一行开始往上遍历
   
10.         If IsEmpty(Range("A" & i)) Then '如果A列为空
    
11.             Range("B" & i).Value = "" '删除同行的B列的字符
    
12.         End If
    
13.     Next i
    
14. End Sub

复制代码

slonby

Sub B空格删除()
Dim arr, i
arr = Sheet1.UsedRange
For i = 2 To UBound(arr)
    If arr(i, 1) = "" Then arr(i, 2) = ""
Next
Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

slonby

发了，代码还在审核，等等

无敌小猪猪

仅供参考！

qflwork

无敌小猪猪 发表于 2023-5-26 15:29
仅供参考！

我连他的问题都看不懂，你居然能写出来。牛逼啊。

tanglf188

Sub B空格删除()
     Range("A:A").SpecialCells(4).Offset(0, 1) = ""
End Sub


要求是B列，附件B列为空，C列有内容，如果是C列则偏移2列，代码如下
Sub B空格删除()
     Range("A:A").SpecialCells(4).Offset(0, 2) = ""
End Sub

lagos

Sub B空格删除()
Range("A:A").SpecialCells(4).Offset(0, 2) = ""
End Sub
就是一个删单元格的

tanglf188

lagos 发表于 2023-5-26 15:46
Sub B空格删除()
Range("A:A").SpecialCells(4).Offset(0, 2) = ""
End Sub

Range("A:A")对象就是A列所有为空的，如果要指定范围修改对象就行了，比如：Range("A2:A10")

gwjkkkkk

Sub test()
    With Range("A1", ActiveSheet.UsedRange)
        ar = .Value
        For i = 1 To UBound(ar)
            ar(i, 2) = IIf(ar(i, 1) = "", "", ar(i, 2))
        Next i
        .Value = ar
    End With
End Sub