修改代码

ddz79101

老师！我想对首行中2个单元格中字符进行对应替换，虽有代码但未能成功，请老师帮忙看看！谢谢！

saghj

k = cells(1, 2): cells(1, 2) = cells(1, 3): cells(1, 3) = k

zxsea_7426

这代码??

zxsea_7426

是不是将全角括号修改为半角状态括号?

ddz79101

zxsea_7426 发表于 2024-5-6 16:40
是不是将全角括号修改为半角状态括号?

是的！老师

ddz79101

zxsea_7426 发表于 2024-5-6 16:40
是不是将全角括号修改为半角状态括号?

应该说是替换，这里巧合举例的全角和半角

ddz79101

saghj 发表于 2024-5-6 16:28
k = cells(1, 2): cells(1, 2) = cells(1, 3): cells(1, 3) = k

谢谢老师！你的方法可行，只是列名的位置，每月可能有变化。

zxsea_7426

按举例重写了一个.<例子中只做了针对性的修改,如果批量修改,可以单独拿一个工作表来做一个对应关系的修改规格>
Sub 替换字符()
    shts = Array("1", "2", "3", "4", "5", "6")  '对需要处理的工作表名做为一个数组
    For Each ws In Sheets    '对整个工作表进行逐一处理<循环>
        With ws              '
            For x = 0 To UBound(shts)    '工作表名称进行过滤
                If ws.Name = shts(x) Then
                    For j = 1 To ws.Cells(1, 1).End(2).Column
                        If InStr(.Cells(1, j).Value, "交易金额（上海）") Then
                            .Cells(1, j).Value = "交易金额(上海)"
                        ElseIf InStr(.Cells(1, j).Value, "交易金额（成都）") Then
                            .Cells(1, j).Value = "交易金额(成都)"
                        End If
                    Next j
                End If
            Next x
        End With
    Next ws
End Sub

心的启点

这个列名怎么变化呢，是增加还是不规则排列呢？把你的逻辑关系描述清楚，这样方便别人帮助你。

zxsea_7426

举个例子: