包含指定关键词，将所在列数据全部转化为百分比格式，并且小数点保留两位

嘞马踏

刚开始学的时候碰到在数据处理，对包含关键词“率”或者“比”，要对所在列数据全部变成百分比格式，并保留两位小数点。找了老半天没找到合适的，后慢慢学习后自己写了一部分，供参考

    Set ws = ThisWorkbook.Sheets("指定的工作表名称")
    lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column '判断最大行'
    For col = 1 To lastColumn
        If InStr(1, ws.Cells(1, col).Value, "率") > 0 Or InStr(1, ws.Cells(1, col).Value, "比") > 0 Then       '判断当第一行出现'率'或者'比'关键词的时候，将所在列数据全部转化为百分比格式，并且小数点保留两位
            Set rng = ws.Range(ws.Cells(2, col), ws.Cells(ws.Cells(ws.Rows.Count, col).End(xlUp).Row, col))
            For Each cell In rng
                cell.Value = Format(cell.Value, "0.00%")

gwjkkkkk

大致这样吧，猜 一个。。。

苏阳湖wzy

gwjkkkkk 发表于 2023-7-17 20:21
大致这样吧，猜 一个。。。

建议老师上传一个附件为好！

嘞马踏

gwjkkkkk 发表于 2023-7-17 20:21
大致这样吧，猜 一个。。。

感谢大神提供的代码，用数组更加简洁

苏阳湖wzy

建议上传附件