粮食取样器图价:excel问题
来源:百度文库 编辑:查人人中国名人网 时间:2024/10/04 15:52:52
怎样才能一次都加上
单元格的内容是 门牌号 例如 2-101 依次类推
在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