[已解决]帮忙修改下代码，执行宏结果错误

楚雪飞扬

帮忙修改下代码，执行宏结果错误

需要从B列提取字符加上C列单元格内容，最后等于最终结果 unimap报表.rar (696.64 KB, 下载次数: 1)

2021-4-22 18:17 上传

点击文件名下载附件

Sub 数据分析()

   With Sheets(1)

      ab = Range("B2", [B65536].End(xlUp))

      ReDim dg(1 To UBound(ab), 1 To 4)

      For i = 1 To UBound(ab)

dg(i, 1) = Mid(ab(i, 1), 4, 1) & Cells(2, 3) & Mid(ab(i, 1), 9, 1) & Mid(ab(i, 1), 10, 1) & Mid(ab(i, 1), 11, 1) & Mid(ab(i, 1), 13, 1) & Mid(ab(i, 1), 15, 1)

      Next

      [E2].Resize(i - 1, 4) = dg

   End With

End Sub

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-4-22 19:18

Sub demo()
   With Sheets(1)
      bc = Range("B2:C" & [B65536].End(xlUp).Row)
      ReDim dg(1 To UBound(bc))
      For i = 1 To UBound(bc)
         dg(i) = Mid(bc(i, 1), 4, 1) & bc(i, 2) & Mid(bc(i, 1), 9, 1) & _
                 Mid(bc(i, 1), 10, 1) & Mid(bc(i, 1), 11, 1) & Mid(bc(i, 1), 13, 1) & _
                 Mid(bc(i, 1), 15, 1)
      Next
      [E2].Resize(i - 1) = Application.Transpose(dg)
   End With
End Sub

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

Sub demo()
   With Sheets(1)
      bc = Range("B2:C" & [B65536].End(xlUp).Row)
      ReDim dg(1 To UBound(bc))
      For i = 1 To UBound(bc)
         dg(i) = Mid(bc(i, 1), 4, 1) & bc(i, 2) & Mid(bc(i, 1), 9, 1) & _
                 Mid(bc(i, 1), 10, 1) & Mid(bc(i, 1), 11, 1) & Mid(bc(i, 1), 13, 1) & _
                 Mid(bc(i, 1), 15, 1)
      Next
      [E2].Resize(i - 1) = Application.Transpose(dg)
   End With
End Sub

祝順心，南無阿彌陀佛！

楚雪飞扬

cutecpu 发表于 2021-4-22 19:18
Sub demo()
   With Sheets(1)
      bc = Range("B2:C" & .End(xlUp).Row)

第6行为表头，要从第7开开始分析数据，代码要如何修改？

楚雪飞扬

楚雪飞扬 发表于 2021-4-22 21:45
第6行为表头，要从第7开开始分析数据，代码要如何修改？

  bc = Range("B2:C" & .End(xlUp).Row) 从这边修改，调试了没有问题，非常感谢！