范冰冰和葛优的电影:EXCEL源码学习

来源：百度文库编辑：九乡新闻网时间：2024/05/04 16:45:00

这样解决重复的问题，有重复的生成一个：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Worksheets
      If sh.CodeName <> "Sheet1" Then sh.Delete
Next
Application.DisplayAlerts = True
With Sheet1
      For c = 1 To .Range("a65536").End(xlUp).Row
         If Application.CountIf(.Range("a1:a" & c), .Cells(c, 1)) = 1 Then
            Sheets.Add(After:=Sheets(Sheets.Count)).Name = .Cells(c, 1)
         End If
      Next
      .Select
End With
End Sub

如何在工作表中自动填数

在工作表中能否做成输入头尾数，中间就自动填上。
如在D12输入4，D20输入12，中间的5-11自动填上；
在I16输入8，I23输入15，中间的9-14自动填上。

附件

Book1.rar (2 KB): 2009-1-3 09:38, 下载次数: 12

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim n&, col&, i&
n = Target.Row - 1
col = Target.Column
For i = n To 1 Step -1
If Cells(i, col) <> "" Then
      For j = i + 1 To n
         Cells(j, col) = Cells(j - 1, col) + 1
      Next j
      Exit Sub
End If
Next i
End Sub

EXCEL源码学习 EXCEL学习 excel学习 EXCEL学习 excel学习 excel教程学习 excel视频学习 excel学习教程学习帖:鳄鱼线的源码 word、excel办公软件学习：【学习】excel常用公式一览表 Excel学习教学全集在线播放 Excel学习资料精华推荐 C语言中的指针学习 - 源码文章 - 天祥电子内核网络源码学习笔记：arp_send()函数分析。学习 Excel VBA 中的类模块 word、excel办公软件学习网站汇总用Excel制作表格的25招必学秘技之如何学习excel制表格用Excel2007制定智能学习时间表--太平洋电脑网Pconline-[Excel] 用Excel2007制定智能学习时间表1--太平洋电脑网Pconline-[Excel] [办公自动化学习]excel及WORD表格应用小技巧 Excel 图解教程学习 - 闲人SGM的日志 - 网易博客办公小秘诀——Word及Excel（学习）学习Excel表格的基本操作教程和必学秘技