我是菜鸟最近在学VBA,请教高手下,我通过VBA语句已经算好了一个值,但是要怎么在EXCEL表中显示这个值呢?比如第A列是一个原始数据,我通过一个语句计算,要把结果显示在B列中,注意,是一整列哦~不知道怎么显示这个数值~~~请高手帮忙~
excel vba 如何把算好的变量赋值给一整列
For i =1 to 100 cells(i,2)=cells(i,1)+2 Next i 以上是指B列=A列+2,直到100行。不知道你怎么语句计算,只能如此简单假设,但愿您能明白。
Excel VBA里数组有没有办法整体赋值的
可以直接 ar=range("A1:B10")
EXCEL VBA 用户窗体 列表框控件赋值的三种方法
首先,我们可以直接列出所需内容:With Me.listID .List = Array("张三", "李四", "王五", "赵六")End With 接着,通过使用 Split 函数,我们能够将一段文本分割并赋值给列表控件:With Me.listID .List = Split("张三, 李四, 王五, 赵六", ",")End With 最后,我们能将单元格的值先...
用VBA编码如何成功地将很长的复杂的公式赋值给单元格?
换成VBA语句就是:Range("A1").Formula = "=if(a1>0,""正数"",""负数"")",其中""中的第一个"为转义字符,告诉Excel第二个引号作为文本。那么题中的公式可写为:"=IF(A5=""",""",IF(MID(A5,2,1)=""1"",""FA-"",IF(MID(A5,2,1)=""2"",""WX-"",IF(MID(A5,2,1)...
请问一下EXCEL如何用vba语言把表格满足条件的单元个复制到另外相应的列...
最好还是截图说明,揣摩了半天你的意思,不知道是不是这样:Sub 统计()Dim arr(1 To 10) '1 On Error Resume Next 'For d = 1 To 10 ' arr(d) = 0 'Next r = Range("B2").End(xlDown).Row c = Range("B2").End(xlToRight).Column f1 = [o2]f2 = [o3]For i = 2 To...
如何用变量给excel单元格赋值
1、首先打开一个工作样表作为例子。2、使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:Sub test2()Worksheets("Sheet1").Range("A1").Value = _Worksheets("Sheet1").Range("A5").ValueMsgBox "现在A1单元格中的值也为" & _Worksheets("Sheet1").Range("A5...
使用excel VBA将一个单元格内输入的数据赋给另一个单元格
选“查看代码”打开代码编辑窗口,如果窗口有任何代码,都把它删除,然后复制》粘贴下面的代码进去,保存 Private Sub Worksheet_Change(ByVal Target As Range)If Target.Row = 1 And Target.Column = 1 Then Range("b1").Value = Range("a1").Value End If End Sub ...
vba怎样把一个单元格中的值赋给另一个单元格
1、首先点击EXCEL打开EXCEL工作薄,工作簿的名称为“给单元格赋值.xls”。2、进入EXCEL界面后点击开发工具选项卡,点击上面的VIUAL BASIC按钮打开VBA编辑器。3、进入VBA编辑器后再代码输入窗口输入如下代码。Sub 给单元格赋值()Workbooks("给单元格赋值.xls").Worksheets("数据").Range("A1").Value = ...
VBA中如何用EXCEL表中的数据给数组赋值
好了,下面说怎么给excel vba数组进行赋值吧EXCEL VBA一维数组赋值的方法int Arr(5)={1,2,3,4,5}说明:括号中的5是指数组长度,固定数组在最开始确定好数组长度,使内存分配好空间,免去重定义数组长度,效率会高些。如果不定义数组长度的话,后期可以使用redim来更改。EXCEL VBA二维数组赋值的方法...
请会excel vba的朋友进(excel如何将一个表格中所有数据整合到同一竖列...
CreateObject("Scripting.Dictionary") i = 1 '从第一列开始 While Cells(1, i) <> "" '处理每一列,知道遇到空(第一行) y = Trim(Cells(1, i)) If db.Exists(y) Then '移动 n = db(y) '当前列需要移动到n列后面 m = Cells(Rows.Count, i).End(xlUp...