菜鸟求教！简单的excel问题

2008-01-18 10:27:27 169 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Excel菜鸟学习笔记一、常用的分析模型：波特五力模型：用于行业分析和商业战略研究 SWOT分析模型：用于市场分析（strength、weakness、opportunity、threats） 5W2H分析模型：用于解决问题（what、why、when、where、who、how、how much） PEST分析模型：用于宏观环境分析（political、economic、social、technologic... 阅读详情

已经打好的数据，想把所有或部分数据扩大1000倍，就是把吨的数据全部变成千克，该如何实现？？

...全文

Spring Boot 菜鸟教程 12 EasyPoi导出Excel下载 EasyPoi功能如同名字easy,主打的功能就是容易,让一个没见接触过poi的人员就可以方便的写出Excel导出,Excel模板导出,Excel导入,Word模板导出,通过简单的注解和模板语言(熟悉的表达式语法),完成以前复杂的写法阅读详情

personalces

Microsoft Office应用 6,218 成员 23,068 内容

+ 关注 + 加入社区

切换为时间正序

athener 2008-02-24

打赏
举报

加一列，再用1，2楼的公式

也能使用要修改的数据做个临时文件book1.xls ，再vlookup引用回来，断开连接，就成了固定数值了

VBA太深奥了，俺是笨笨

fenglinganny 2008-02-23

打赏
举报

3楼太深奥，看不懂啊，郁闷.

andyzgx1 2008-02-23

打赏
举报

1、B1=1000*A1
2、在空单元格输入1000并复制该单元格》选中要扩大1000倍的区域》选择性粘贴》乘
3、打开您的excel然后点击alt + F11 ,粘贴以下VBA代码，按F5执行
'如果您的需要仅仅是问题中所说的那么应该能够满足你的要求
'关于VBA的基础知识，随便网上搜索一下。
'对于经常使用EXCEL的您来说建议学习一下
Private Sub setDon()

Dim iValue As Long
Dim iRow As Integer

'下面的是您的工作表的名字，请根据您的情况自行修改
Const sheetName As String = "theNameOfMySheet"

'下面定义的是您要修改的数据所在的列，请根据您的情况自行修改
Const colum As Integer = 3

'下面定义的是您要修改的数据开始的行，请根据您的情况自行修改
Const startRow As Integer = 10

'下面定义的是您要修改的数据最终行，请根据您的情况自行修改
Const endRow As Integer = 14

With Sheets(sheetName)
For iRow = startRow To endRow
If .Cells(iRow, colum).FormulaR1C1 <> "" Then
iValue = .Cells(iRow, colum).FormulaR1C1
.Cells(iRow, colum).FormulaR1C1 = iValue * 1000
End If
Next
End With
End Sub

Mnky 2008-02-23

打赏
举报

1、2楼的方法都可行，3楼的好像没有必要吧，呵呵。

smile_zhang 2008-02-15

打赏
举报

2楼正解，，，，经常这样用。。。。。

wxhy_wwei 2008-02-11

打赏
举报

'打开您的excel然后点击alt + F11 ,粘贴以下VBA代码，按F5执行
'如果您的需要仅仅是问题中所说的那么应该能够满足你的要求
'关于VBA的基础知识，随便网上搜索一下。
'对于经常使用EXCEL的您来说建议学习一下
Private Sub setDon()

Dim iValue As Long
Dim iRow As Integer

'下面的是您的工作表的名字，请根据您的情况自行修改
Const sheetName As String = "theNameOfMySheet"

'下面定义的是您要修改的数据所在的列，请根据您的情况自行修改
Const colum As Integer = 3

'下面定义的是您要修改的数据开始的行，请根据您的情况自行修改
Const startRow As Integer = 10

'下面定义的是您要修改的数据最终行，请根据您的情况自行修改
Const endRow As Integer = 14

With Sheets(sheetName)
For iRow = startRow To endRow
If .Cells(iRow, colum).FormulaR1C1 <> "" Then
iValue = .Cells(iRow, colum).FormulaR1C1
.Cells(iRow, colum).FormulaR1C1 = iValue * 1000
End If
Next
End With
End Sub

zipall 2008-01-19

打赏
举报

在空单元格输入1000并复制该单元格》选中要扩大1000倍的区域》选择性粘贴》乘

ljc007 2008-01-19

打赏
举报

B1=1000*A1

菜鸟求教！简单的excel问题

相关推荐