[已解决]求助VBA大神将汇总表数据提取到分表

yaozhiyuan

将汇总表中：产权所有者、建筑层数、建筑面积、建筑竣工时间  分别提取到分表   产权所有者、建筑名称及楼号、层数、建筑面积、建设年代

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-6-29 17:51

Sub demo()
   a = [a1].CurrentRegion
   For i = 2 To UBound(a)
      With Sheets(a(i, 1) & "")
         .[c3] = a(i, 2)
         .[c5] = a(i, 3)
         .[k5] = a(i, 4) & "㎡"
         .[r5] = a(i, 6)
      End With
   Next
End Sub


祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

Sub demo()
   a = [a1].CurrentRegion
   For i = 2 To UBound(a)
      With Sheets(a(i, 1) & "")
         .[c3] = a(i, 2)
         .[c5] = a(i, 3)
         .[k5] = a(i, 4) & "㎡"
         .[r5] = a(i, 6)
      End With
   Next
End Sub


祝順心，南無阿彌陀佛！