Excel，VBA改变所有单元格

• 进入编码界面快捷键 alt+F11
• worksheetfunction

引用

转半角函数（ASC）：
cells(i, j) = Application.WorksheetFunction.Asc(cells(i, j))
替换下面的一行代码
cells(i, j) = "前面加东西"&cells(i, j)

'用函数改变所有非空单元格  
Sub allChange()  
	Dim cells, iorws, icols  
	cells = Worksheets(1).UsedRange '非空单元格区域
	irows = UBound(cells, 1) '行
	icols = UBound(cells, 2) '列
	For i = 1 To irows  
		For j = 1 To icols  
			If cells(i, j) > 0 Then  
				cells(i, j) = "前面加东西"&cells(i, j)  
			End If  
		Next  
	Next  
	Selection.Resize(irows, icols) = cells  
End Sub