件夹内汇入其他工作表表格。汇入范围为第五行、第L列。
如汇入范围改为第三行、第R列。
怎样修改此宏？
Public Sub Feed_in2()
Dim Row_dn, Row_dn1, i, j, k, m As Integer
Dim Path1, Str1 As String
Dim wb As Workbook
Row_dn = [B65536].End(xlUp).Row
Path1 = Application.ActiveWorkbook.Path
Str1 = ActiveWorkbook.Ncom
k = 5
With Application
.EnableEvents = False
.ScreenUpdating = False
If Row_dn >= 5 Then
Range("B5:L" & Row_dn).ClearContents
End If
With .FileSearch
.NewSearch
.LookIn = Path1
.FileType = msoFileTypeExcelWorkbooks
If .Execute <= 1 Then
MsgBox "files no found": Exit Sub
Else
For m = 1 To .FoundFiles.Count
Str2 = Split(.FoundFiles(m), "\")
n1 = UBound(Str2)
Str2 = Str2(n1)
If Str2 <> Str1 Then
Set wb = Workbooks.Open((Path1 & "\" & Str2), True, True)
Row_dn1 = wb.Sheets(1).[B65536].End(xlUp).Row
For i = 5 To Row_dn1
For j = 2 To 12
Workbooks(Str1).Sheets(1).Cells(k, j) _
= wb.Sheets(1).Cells(i, j)
Next j
k = k + 1
Next i
wb.Close False
Set wb = Nothing
End If
Next m
End If
End With
.EnableEvents = True
End With
End Sub
解答：除了B65536中的5，其余5都改成3；将Range("B5:L" & Row_dn)改成Range("B5:R" & Row_dn)；将For j = 2 To 12改成For j = 2 To 17。
022.怎样控制textbox的只读，要使textbox中的数据不能改变（删除或修改），在属xìng里我没有找到
有相关的方法吗？
解答：Textbox.Enabled = False，直接修改控件属xìng都行。
又问：这样还不行，因为Textbox在显示上就灰显了，我想只让它不可改变值，在显示上还是原来的形式。
解答：那就用Label代替，设置BackColor和SpecialEffect属xìng。
023.请教个小问题！
你好：我录制了个删除工作表的宏，但每次运行后，总出现确认删除提示框，请问该如何编写，直接默认删除，不在作确认呢？
解答：Application.DisplayAlerts = False
代码为：Sub Dell()
'
' Dell Macro
' DC.Direct 记录的宏 2003-11-14
Application.DisplayAlerts = False
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub
024.小知识：当垂直滚动条滚动到无法显示1-3行时，冻结窗口，1-3行就好像被隐藏了，但是取消隐藏也不行。
025.选A1后，自动显示B1内容，有无方法实现。有A1列和B1两列，*D1处做了数据-有效xìng-序列-选择A1~A9
*D1选择A1时，要求在G1中自动跳出B1的内容， 选A2时，自动跳出B2的内容*余此类推。
解答：G1公式:=Vlookup(D1,A1:B9,2,0)
又问：假设，有C列中也有数据，我要在G1中显示C列中的数据，该怎么算？
解答：G1公式:=Vlookup(D1,A1:B9,3,0)
026. 向上填充的快捷键是什么？我只会向下填充的快捷键，向上-向左-向右的都是什么呢？
解答：向上-Alt+E,I,U。向左-Alt+E,I,L。向右-CTRL+R
027.下方单元格上移，包含该单元格的公式不要变化
哪位高手帮帮忙！我试验了很久也没找到解决的办法：
能不能做到删除单元格以后，下方单元格上移，包含该单元格的公式不要变化。或者是：按住shift拖动单元格，使两个单元格互相jiāo换位置以后，包含该单元格的公式不要发生变化。注意，用加$的办法是不能解决这个问题的，如公式改为：=SUM($A$1:$A$9),经上述cāo作后，结果还是一样。
解答：=SUM(INDIRECT("A1:A10"))
新问题：但是还有一个问题：我这一列有2000多个数据，似乎不能通过拖动的办法将公式复制200遍，达到每10个1求和的结果。
解答：=IF(MOD(ROW(),10)<>0,"",SUM(OFFSET(INDIRECT(ADDRESS(ROW(),COLUMN(),)),,-1,-10,)))
028.一列中删除重复数据的方法
例如在C2:C500中有重复数据。在D2中 =COUNTIF(C2:$C$100,C2) 计算出 C2在此列中的出现次数,然后复制公式到整列,最后删除在D列中大于1的行即可.
029.哪为大侠来帮忙关于VBA的问题
小弟想同时对excel工作簿下的几个工作表进行chā入图表的cāo作！这几个工作表中已经在相同的位置区域内输入了数据. 语言如下： 运行显示 "下表越界" （下划线的地方）。请问高手又什么办法解决，或者可以用其它的方法。
sub biaoge()
for a = 1 to 3
sheets("sheet(a)").select
charts.add
activechart.applycustomtype charttype:=xlbuiltin, typencom:="两轴线-柱图"
activechart.setsourcedata source:=sheets("sheet (a)").range("a1:j3"), plotby:=xlrows