[求助]有个数组转换的技巧忘了,谁告诉我下

taigaoxiao

谢谢大家!我去试试,我编的程序太罗嗦且只编了一半,如果自己还不能解决就传上来请教!

xiangchendub

[ ] 代表Evaluate



fclyjzyk

[]可以引用excel对象或者公式，这是我的理解，对不？不知道还有什么？

Evaluate 方法

参阅应用于示例特性

将一个 Microsoft Excel 名称转换为一个对象或者一个值。

expression.Evaluate(Name)

expression      对于 Application 对象可选，对于 Chart 对象，DialogSheet 对象，和 Worksheet 对象必需。该表达式返回“应用于”列表中的对象之一。

Name      String 类型，必需。对象名使用 Microsoft Excel 的命名约定。

说明

下列几类 Microsoft Excel 名称可以使用此方法：

• A1-样式引用。可以引用任何以 A1-样式符号表示的单个单元格。所有引用都是绝对引用。
• 单元格区域。可在区域引用中使用区域、交集和联合运算符（分别为冒号、空格和逗号）。
• 已定义的名称。可用宏语言指定任意名称。
• 外部引用。可以使用“!”操作符引用另一工作簿上的单元格或已定义的名称。例如，Evaluate("[BOOK1.XLS]Sheet1!A1")。

注释  使用方括号（例如，"[A1:C5]"）与用字符串参数调用 Evaluate 方法是等效的。例如，下列表达式对是等价的。

[a1].Value = 25
Evaluate("A1").Value = 25
	

trigVariable = [SIN(45)]
trigVariable = Evaluate("SIN(45)")
	

Set firstCellInSheet = Workbooks("BOOK1.XLS").Sheets(4).[A1]
Set firstCellInSheet = _
    Workbooks("BOOK1.XLS").Sheets(4).Evaluate("A1")
	

使用方括号的优点在于代码较短。使用 Evaluate 的优点在于参数是字符串，这样您既可以在代码中构造该字符串，也可以使用 Visual Basic 变量。

示例

本示例将工作表 Sheet1 上 A1 单元格的字体设置为加粗。

Worksheets("Sheet1").Activate
boldCell = "A1"
Application.Evaluate(boldCell).Font.Bold = True
	

linpansheng

再次学习这个帖子，好帖子

Lighttools

谢谢，长了见识。
ExcellHome 太好了，里面的版主、大侠们太棒了。
这儿是我的Excell学校。
再说声谢谢