烦请看看我这段代码错在哪里了，急死个人

帕帕基诺

各位老师好！

      我是个VBA小白，刚才尝试，将表格的最右列I列的最左边对应的字段取到，取到后全都粘贴到本表格的a15及往下的表格，就写了如下代码：

Sub 获取最右列对应的最左边第一个不为空的字段()

Dim a, b, c
  For a = 2 To Worksheets("sheet1").Range("I2").Rows.Count

     Set b = Worksheets("sheet1").Range("I3").End(xlToLeft).Value


Next
   b.Copy Worksheets("sheet1").Range("A15")
End Sub


没想到报错：“运行时错误424，要求对象”。请哪位老师看看指点一下，我错在哪里了，感激不尽。附件是表格图片

3190496160

代码明显存在逻辑错误，对象b是在循环中赋予它实际的意义的，但是，拷贝又是跳出循环拷贝

帕帕基诺

3190496160 发表于 2023-3-14 16:01
代码明显存在逻辑错误，对象b是在循环中赋予它实际的意义的，但是，拷贝又是跳出循环拷贝

那请问老师，如果我要取到b的一系列值并且复制到指定的区域请问该怎么改，拜谢！

cjc209

Worksheets("sheet1").Range("I3").End(xlToLeft).Value这个出来的是值 不加.Value 才是对象

3190496160

帕帕基诺 发表于 2023-3-14 16:11
那请问老师，如果我要取到b的一系列值并且复制到指定的区域请问该怎么改，拜谢！

上传附件具体说明需求

帕帕基诺

3190496160 发表于 2023-3-14 16:14
上传附件具体说明需求

老师您好！

      附件已上传，请阅。我的具体需求是：将I列也就是最后一列一一对应的左边的那些字段（如酒店合计、总费用等）提取出来，然后放到指定的区域，例如K列，然后再将I列的数值也提取过去粘贴到L列跟刚才提取的字段一一对应，形成如下的状态：

麻烦您看这个代码该怎么写，万分感谢您！

帕帕基诺

cjc209 发表于 2023-3-14 16:12
Worksheets("sheet1").Range("I3").End(xlToLeft).Value这个出来的是值 不加.Value 才是对象

谢谢。但是我将.value剔除后也运行不成功。还是报一样的错误

gwjkkkkk

这样？？？

cjc209

将就你的代码也应该改成这样才行啊
Sub ttt()
    Dim a, b, c
    For a = 2 To Worksheets("sheet1").Range("I2").End(xlDown).Row
        Set b = Worksheets("sheet1").Range("I" & a).End(xlToLeft)
        b.Copy Worksheets("sheet1").Range("k" & a)
    Next
End Sub
你的根本不是代码 一团糟

帕帕基诺

cjc209 发表于 2023-3-14 18:40
将就你的代码也应该改成这样才行啊
Sub ttt()
    Dim a, b, c

谢谢老师，受教了，感激不尽！