VBA代码片之跨工作表复制数据

Option ExplicitSub run()Dim r1 As Range, i As Integer, j As IntegerSet r1 = Worksheets("混凝土").Range("A3:F490")For i = 1 To r1.Rows.CountWorksheets("Template").Copy After:=Worksheets("Template")Workshe

迪迦 • 奥特曼

3535人浏览 · 2022-04-07 22:30:07

迪迦 • 奥特曼 · 2022-04-07 22:30:07 发布

Option Explicit
Sub run()
    Dim r1 As Range, i As Integer, j As Integer
    Set r1 = Worksheets("混凝土").Range("A3:F490")
    For i = 1 To r1.Rows.Count
            Worksheets("Template").Copy After:=Worksheets("Template")
            Worksheets("Template (2)").Name = Str(i)
            Worksheets(Str(i)).Range("G5").Value = _
                Replace(r1.Cells(i, 5).Value, Chr(10), "")
            Worksheets(Str(i)).Range("G7").Value = r1.Cells(i, 3)
    Next i
End Sub

DAMO开发者矩阵

DAMO开发者矩阵，由阿里巴巴达摩院和中国互联网协会联合发起，致力于探讨最前沿的技术趋势与应用成果，搭建高质量的交流与分享平台，推动技术创新与产业应用链接，围绕“人工智能与新型计算”构建开放共享的开发者生态。

更多推荐

【水下图像增强融合算法】基于融合的水下图像与视频增强研究附Matlab代码

水下成像技术在海洋资源勘探、水下目标检测、核电站水下检修、海洋生物监测及水下机器人作业等领域具有不可替代的作用。然而，水下环境的特殊性给成像质量带来了严峻挑战：水体对光的吸收与散射作用导致图像普遍存在颜色失真（多呈现蓝绿偏色）、对比度低下、细节模糊、远处物体雾化等问题。在普通海水中，距离超过10米的物体几乎无法分辨，特征波长的选择性吸收进一步加剧了颜色褪色，严重制约了水下视觉系统的应用效能。传统水