Question

在EXCEL VBA 里面 这句..Range(Cells(i, 2), Cells(i, 11)).Borders.LineStyle = xlContinuous

这句什么意思

Answer 1

比如i=2时，它就表示B2到K2构成的这块区域的边界线设置成连续的（不间断，意即不是虚线）

Answer 2

在i所指代的第2列到第11列的所有单元格的外边框线性为实线。

Answer 3

首先在VB中引用microsoft excel object library

假设c盘根目录下有个1.xls的文件
…………

问题补充：

你的要求很简单，

一行指令恐怕不行，

最少要三行

代码如下：

Private Sub Form_Load()

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim i As Integer

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open("C:\1.xls")

Set xlSheet = xlBook.Worksheets(1) '引用第1张工作表

For i = 3 To 100 Step 3 '想到哪行就把100改成几

xlSheet.Range(Cells(i, 1), Cells(i, 2)).Merge '合并a1:b2单元格

Next

xlSheet.Rows(10).RowHeight = 100 '把第10行高度设为100

xlBook.Save

xlApp.Application.Quit

Set xlApp = Nothing '表忘释放引用

End Sub

运行一下，看看满足要求否。

Answer 4

.Cells(i, 1)
正常情况下， .Cells(i, 1)的值是字符型，应该加上val( .Cells(i, 1))
转换成数值型即可。

Answer 5

边框设置为实线