vb处理大量Excel数据

Question

有若干Excel文件的a2到j2均有不同的数字,均输入到一个Excel文件中并且安输入顺序排列下来,使得该文件a列到j列排列若干Excel文件的a2到j2的不同的数字,现在需要vb编辑一个可以将大量重复的指定位置相同的数据快速导入同一个Excel中的小程序,急需vb的代码或实例,否则此项工作要十分费时又费力啊!!

Answer 1

以下给你的是对EXCEL表的一些常用的操作。编你的问题很容易。无非就是一些读表，写表的操作。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Private Sub Form_Load()

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("c:\a.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表
xlSheet.Cells(3, 1) = "水涧泉" '给单元格（row,col）赋值
'获取Excel有效区域的行和列数
'intLastColNum = objImportSheet.UsedRange.Columns.Count
'intLastRowNum = objImportSheet.UsedRange.Rows.Count

If Trim$(xlSheet.Cells(3, 1).Value) <> "" Then
Text1.Text = xlSheet.Cells(3, 1).Value '读取表格内容
End If
xlSheet.Select
'xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub

Answer 2

excel上有VBA知道吗?他是VB下的一个分支,功能和VB一样.你可以这样操作:
按alt+f11 进入VBA界面,新建一个窗体.在上面建两个text控件与COM控确定控件.在确定控件中输入:
Dim x, i As Integer
x = 510 '----------------------------------------------------------------------------------------------------- --------最后行数,有改动请修改
For i = 1 To x
If TextBox1 = sheet1.Cells(i, 2) Then
sheet1.Cells(i, 3)=TextBox2
Exit For
End If
Next i
TextBox1 = ""