河流经流量年际变化大:excel问题

在excel中按alt+f11，出现vba编程窗口
粘贴以下代码后，按F5运行
Sub test()
For Each i In Range("a1:b5") '"a1:b5"是你要操作的选择范围
'如果你要从A5到A100，则变成"A5:A100"
i.Value = "tj" + i
Next
End Sub

将你想放数据的地方全部选中,再上面的栏中编辑 =tj(A1) ,之后按enter

写一个宏，运行之：

Dim col, row , SheetsNum As Integer
Const addString = "tj"

For SheetsNum = 1 To ActiveWorkbook.Sheets.Count
For row = 1 To Sheets(SheetsNum).UsedRange.Rows.Count
For col = 1 To Sheets(SheetsNum).UsedRange.Columns.Count
Sheets(SheetsNum).Cells(row, col).Value = Sheets(SheetsNum).Cells(row, col).Value + addString
'Sheets(SheetsNum).Cells(row, col).Value = addString + Sheets(SheetsNum).Cells(row, col).Value
Next
Next
Next

注掉的那句是在前面加“tj”

Sub 宏1()
Set r = Selection
For i = 1 To r.Rows.Count: For j = 1 To r.Columns.Count
r.Cells(i, j) = r.Cells(i, j) & "tj"
Next j: Next i

End Sub