电子表格Excel表格VBA代码的修改

1.Excel表格VBA代码的修改

Sub CopyFilterResult()

Worksheets("sheet2").Columns("A:H").ClearContents

Worksheets("sheet1").Select

With Worksheets("Sheet1")

If .FilterMode Then '如果处于筛选模式

Range("A:H").Copy

End If

End With

Worksheets("Sheet2").Select

Range("a1").Select

ActiveSheet.Paste

End Sub

2.EXCEL表格修改里面的代码

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$8" Then If Sheet2.Cells(1, 1) = "" Then Sheet2.Range("A1") = Range("B3") Sheet2.Range("B1") = Range("B4") Sheet2.Range("C1") = Range("B5") Sheet2.Range("D1") = Range("B6") Sheet2.Range("E1") = Range("B7") Sheet2.Range("F1") = Range("B9") Else p = Sheet2.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1 Sheet2.Cells(p, 1) = Range("B3") Sheet2.Cells(p, 2) = Range("B4") Sheet2.Cells(p, 3) = Range("B5") Sheet2.Cells(p, 4) = Range("B6") Sheet2.Cells(p, 5) = Range("B7") Sheet2.Cells(p, 6) = Range("B9") End If Range("B3:B8").Select End IfEnd Sub。

3.EXCLE如何设置代码

是什么意思呢？是B1显示最后第2个数，C1显示最后1个数？

B1:=mid(A1,len(A1)-2,1)

C1:=right(A1,1)

mid（参数1，参数2，参数3）

参数1，表示所要取值的单元格位置

参数2表示从第几位开始取值

参数3表示取多少位

left（参数1，参数2）

参数1表示所要取值的单元格位置

参数2表示取多少位

right（参数1，参数2）

参数1同上

参数2表示从后面取多少位

len（参数1）：返回单元格的字符长度

参数1同上

补充，这个就麻烦了。

首先你要限定输入的位置，然后通过vba来做

做了个小样：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$10" Then

For i = 2 To 9

If Cells(i, 1) = Target.Value Then

Cells(i, 4) = Cells(i, 4).Value + 1

Else

End If

Next i

Else

End If

End Sub

说明：格式如楼主。

表名：book1,Sheet1

固定输入位置B10，比较范围是A2:A9