如何用vba将excel一列值取出来运算然后将结果注入另一列?
ActiveWorkbook.Worksheets("Sheet2").cells(j,"G")= _
ThisWorkbook.Worksheets("Sheet1").cells(i,"A")
'在sheet2的单元格A1输入sheet1的A1的值
sheets("sheet2").cells(1,1)=sheets("sheet1").cells(1,1)
或
sheets("sheet2").range("a1")=sheets("sheet1").range("a1")
就这个意思?
首先要有一个集合列表
如何对excel的数据运用VB程序计算,最后在excel显示
Public Sub exc()Dim exc Set exc = CreateObject("Excel.Application")'上句,启动了一个excel对象 exc.Workbooks.Add '(Open "G:\\学习vba的文件\\excel数据.xls")'上句,利用excel的子对象Workbooks的open方法,打开G盘上的一个 xls文件 exc.Visible = True '上句,是将此对象显示出来。如果想...
EXC怎么用vba脚本对多个单元格进行保存检查
for i = 1 to range("b65536").end(xlup).row if cells(i,"B")="" then 添加这个,多列的再添加个循环
excel中通按钮就可以打开另一个工作表…VBA怎么写?
开发工具(打开excel选项—常用—在功能区显示“开发工具”选项卡)—插入—选择第一个,右击指定宏,插入代码:Public Sub CommandButton1_Click()Sheets("Sheet3").Select ‘sheet3为工作表名 end sub
怎么在exc里面单元格设置数字,比如数字是1.32,我想直接输入32出来1.32...
---57132899--- 其实有一种变通的方法 比如你在一个9乘9的区域里输入,可以只输入32的样式 然后在空白区域选中一个9乘9区域,输入100,按CTRL+ENTER完成 复制这个区域到先前的区域,选择性粘贴,选除,确定 再同样的方法,输入1,选择性粘贴,选加 即可 ...
VBA如何将CAD中的图形复制到EXCEL中?--在线等。谢谢
我一直用手动实现这种操作CAD和OFFICE是可以兼容的。第一种方法:直接在CAD中选中对象,CTRL+C,然后在OFFICE文档中粘贴即可。粘贴后可以双击该图片,返回CAD中修改,在CAD中最大化显示后,保存再退出CAD即可。
Exc排序问题。期末安排试场
用Excel的VBA解决吧,把每个班级分别放到一个工作表里,然后新建一个总表,就是把前面个个工作表放到总表里,用总表行号除以班级数的余数来分配,余几,就在该行复制几班的学生数据,余数是零就复制最后一个班级的数据。几个班级除数就是几。
我想做一个EXC表格 一个工作薄里有十三张表分别是十二个月份表和一...
问题宽泛了。可以用函数公式,可以用数据透视表,也可以用VBA。关键就是要将哪些数据汇总到一个表里,每个月的表是固定的还是行列数动态的。
如何将Excel文件的指定列内容提取到另一个exc中指定表的指定列中。具 ...
Public Sub ImportData()Dim i As Long Dim SourceBook As Workbook '导入源工作簿对象 Dim TargetCell As Range '导入目标位置对象 Dim SourceRange As Range '导入源位置对象 Dim strFilePath As Variant '将要打开的文件的路径 Dim aCell As Range '循环变量 Set TargetCell = Applic...
在Exc里如何将每一格后面都加上一个名词 如“***” 改为“***商店...
选中需修改区域, 设置单元格格式, 自定义类型为 "商店"如图所示:
EXC同行指定颜色靠前列
2007版直接用按颜色排序的功能。2003版的可以利用辅助列,利用宏表函数get.cell来取得颜色值。如果原来的颜色本身是条件格式取来的,就应该直接用原来的条件来取值。也可以利用VBA来解决。没有看到表,说不出具体采取哪种方法,只能提供以上建议
厍腾复方: sub s() n = sheets("问1").cells(rows.count, 3).end(3).row sheets("问2").[f30] = sheets("问1").cells(n, 3) sheets("问2").[p32] = sheets("问1").cells(n, 4) sheets("问2").[z34] = sheets("问1").cells(n, 5) sheets("问2").[aj36] = sheets("问1").cells(n, 6) end sub
嵊泗县19789143813: 如何用vba将excel一列值取出来运算然后将结果注入另一列??
厍腾复方: 首先在Sheet1建立一个对照表,第一行是省份,其下是所属各市县.在Sheet2的第二行起实现所需功能.把下面的宏粘贴到对应的工作表(Sheet2)的模块中(按Alt+F11,双击Sheet2,).思路:由于Excel内置函数(我所知的)只能查找一行...
嵊泗县19789143813: 怎样用VBA读取一个excel表格中的某一列,然后提取出来放到另一个sheet的一行里如何写代码求详细,谢谢 - ?
厍腾复方: Sheets("sheet1").Range("a1:a30").CopySheets("Sheet2").Select[a5].SelectSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=True
嵊泗县19789143813: EXCEL VBA 如何返回某行某列的值? - ?
厍腾复方: sheet1.range("E3").value 或 sheet1.cells(3,5).value 里面的参数也可以改为变量 sheet1.range("E"&i).value i为变量 或 sheet1.cells(i,j).value i,j为变量
嵊泗县19789143813: excel vba 循环取值 - ?
厍腾复方: excel vba一般有下面几种循环语句: 1、For ... Next for i=1 to 100Cells(i,1)=i Next2、Do Until ... Loop i=1 Do until i=100Cells(i,1)=1i=i+1 Loop3、Do While ... Loop i=1 Do While i<=100Cells(i,1)=1i=i+1 Loop 可以根据情况选择使用
嵊泗县19789143813: Excel 怎样用VBA读取某列数据 - ?
厍腾复方: sub 列() dim x, y as integer x = selection.row y = selection.column dim jinput as long jinput = 65536 '--这里是你要修改的数据占了多少行,最多也就是65536行 'jinput = application.inputbox(title:="请输入您要修改的些列数据的个数", type:=2...
嵊泗县19789143813: excel中怎么取得某行某列的值 - ?
厍腾复方: 在工作表中,用 =列号的字母,行号 表示,如第5列,第3行,第5列的字母为E,表示为: =E3 在VBA中,用 cells(行号,列号) 表示,如第3行,第5列,表示为: =cells(3,5)
嵊泗县19789143813: EXCEL取出单元格内数字 VBA - ?
厍腾复方: 我看了你这些数据,都有“单元”二字,你需要的是获得“单元”二字自后的数字,可以用split来获得,三位数可以用format函数得到,我下面的代码测试通过,完全满足你的要求: Option Explicit Sub xx()Dim c As Range, xFor Each c In [a1:a2]x = Val(Split(c.Value, "单元")(1))c.Offset(0, 1) = "'" & Format(x, "000")Next c End Sub
嵊泗县19789143813: 用vba怎样取excel中的一列在将提取的数据放到另一个sheet的一行,求代码,要精确的,谢谢大家 - ?
厍腾复方: Dim xSht1 As Worksheet Dim xSht2 As Worksheet Set xSht1 = Sheets("sheet1") Set xSht2 = Sheets("sheet2") For i = 1 To 45 xSht2.Cells(1, i) = xSht1.Cells(i + 3, 3) 'sheet1表中的C4-C48,放到sheet2的第一行. Next i
嵊泗县19789143813: 有VBA取EXCEL中单元格的值 - ?
厍腾复方: 在UsedRange范围内扫描所有单元格,判断Left(该单元格, 4) = "ID:"如果相等就读取Right(该单元格, Len(该单元格) - 4). 这样就可以取到你所要的值了