
excel
VBASub ConvertChineseToEnglish() Dim ws As Worksheet Dim i As Long Dim str As String ws = ThisWorkbook.Sheets(1) For i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row str = ws.Cells(i, 1).Value If str Like "," Then ws.Cells(i, 1).Value = Replace(str, ",", ",") End If Next iEnd Sub在这个示例代码中,首先获取当前工作表,并遍历所有单元格。对于每个单元格,使用Like运算符判断其内容是否以","结尾(即是否为中文)。如果是中文,则使用Replace函数将其替换为英文逗号。当然,在实际应用中,也可以根据具体需求修改代码。希望对您有所帮助!Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号