如何用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). 这样就可以取到你所要的值了
