[已解决]Left的用法（爱疯过来帮忙，谢谢）

danser

在VBA中，我想对第一列的所有单元格用该单元格的前7个字符替换，如下：

tr = Sheet18.Range("a65535").End(xlUp).Row
 Dim j As Integer
 For j = 1 To tr
  Sheet18.Range("a" & j) = Left(Sheet18.Range("a" & j), 7)
 Next

哪里错了？请高手指点，谢谢

 

 

 请看附件

1nZSCxCh.rar (7.6 KB, 下载次数: 2)

2010-5-27 09:07 上传

点击文件名下载附件
Left的用法

[此贴子已经被作者于2010-5-27 9:07:56编辑过]

最佳答案

月排行榜 / 总排行榜

爱疯

2010-5-27 09:48

Sub Button1_Click()
    Sheet1.Range("b1:d1000").ClearContents
    Dim i As Integer

    i = 1
    Sheet1.Range("b" & i) = Dir("E:\New Folder (2)\")

    For i = 2 To 200
        '一旦返回值为零长度字符串，并要再次调用 Dir 时，就必须指定 pathname，否则会产生错误。
        If Dir = "" Then Exit For
        Sheet1.Range("b" & i) = Dir
    Next i

    tr = Sheet1.Range("b65535").End(xlUp).Row
    Dim j As Integer
    For j = 1 To tr
        Sheet1.Range("b" & j) = Left(Sheet1.Range("b" & j), 7)
    Next
End Sub

跳转到最佳答案楼层

lotte

只要你有sheet18的话

应该没有错啊

爱疯

代码没错误，提示什么错误，能上传附件吗[em09]

amulee

Sub Button1_Click()

Sheet1.Range("b1:d1000").ClearContents
     Dim i As Integer
     i = 1
       Sheet1.Range("b" & i) = Dir("E:\New Folder (2)")
     
     For i = 2 To 200
        temp = Dir
        If Len(temp) = 0 Then Exit For
       Sheet1.Range("b" & i) = temp
     Next i
    
 
 
 
 tr = Sheet1.Range("b65535").End(xlUp).Row
 Dim j As Integer
 For j = 1 To tr
  Sheet1.Range("b" & j) = Left(Sheet1.Range("b" & j), 7)
 
 Next
End Sub

szyygb

学习

学习

在学习

danser

不行

爱疯

Sub Button1_Click()
    Sheet1.Range("b1:d1000").ClearContents
    Dim i As Integer

    i = 1
    Sheet1.Range("b" & i) = Dir("E:\New Folder (2)\")

    For i = 2 To 200
        '一旦返回值为零长度字符串，并要再次调用 Dir 时，就必须指定 pathname，否则会产生错误。
        If Dir = "" Then Exit For
        Sheet1.Range("b" & i) = Dir
    Next i

    tr = Sheet1.Range("b65535").End(xlUp).Row
    Dim j As Integer
    For j = 1 To tr
        Sheet1.Range("b" & j) = Left(Sheet1.Range("b" & j), 7)
    Next
End Sub

爱疯

注释部分，是1楼错误的原因。不知道可以了吗[em09]

danser

可以了，谢谢爱疯！好人啊！

amulee

QUOTE:

以下是引用爱疯在2010-5-27 9:48:00的发言：

Sub Button1_Click()
    Sheet1.Range("b1:d1000").ClearContents
    Dim i As
  Integer

    i = 1
    Sheet1.Range("b" & i) = Dir("E:\New Folder (2)\")

    For i = 2 To 200
        '一旦返回值为零长度字符串，并要再次调用 Dir 时，就必须指定 pathname，否则会产生错误。
        If Dir = "" Then
  Exit
  For
        Sheet1.Range("b" & i) = Dir
    Next i

    tr = Sheet1.Range("b65535").End(xlUp).Row
    Dim j As
  Integer
    For j = 1 To tr
        Sheet1.Range("b" & j) = Left(Sheet1.Range("b" & j), 7)
    Next
End
  Sub

汗。。。你这个方法有问题的。正确的应该是我的那段代码。

If Dir = "" Then，这里执行了一次Dir进行判断，到后面Sheet1.Range("b" & i) = Dir 又进行了一次Dir，两次结果其实是不一样的....这样你就会跳过某些文件名。

正确的做法应该是设定一个临时变量Temp，来记录Dir结果，要注意每次循环仅能执行一次Dir。