fffffffee

Please make fork of this, as this can be removed by Github.com sooner or later.

CATF44LT7C-eyJsaWNlbnNlSWQiOiJDQVRGNDRMVDdDIiwibGljZW5zZWVOYW1lIjoiVmxhZGlzbGF2IEtvdmFsZW5rbyIsImFzc2lnbmVlTmFtZSI6IiIsImFzc2lnbmVlRW1haWwiOiIiLCJsaWNlbnNlUmVzdHJpY3Rpb24iOiJGb3IgZWR1Y2F0aW9uYWwgdXNlIG9ubHkiLCJjaGVja0NvbmN1cnJlbnRVc2UiOmZhbHNlLCJwcm9kdWN0cyI6W3siY29kZSI6IklJIiwicGFpZFVwVG8iOiIyMDIwLTAxLTA4In0seyJjb2RlIjoiQUMiLCJwYWlkVXBUbyI6IjIwMjAtMDEtMDgifSx7ImNvZGUiOiJEUE4iLCJwYWlkVXBUbyI6IjIwMjAtMDEtMDgifSx7ImNvZGUiOiJQUyIsInBhaWRVcFRvIjoiMjAyMC0wMS0wOCJ9LHsiY29kZSI6IkdPIiwicGFpZFVwVG8iOiIyMDIwLTAxLTA4In0seyJjb2RlIjoiRE0iLCJwYWlkVXBUbyI6IjIwMjAtMDEtMDgifSx7ImNvZGUiOiJDTCIsInBhaWRVcFRvIjoiMjAyMC0wMS0wOCJ9LHsiY29kZSI6IlJTMCIsInBhaWRVcFRvIjoiMjAyMC0wMS0wOCJ9LHsiY29kZSI6IlJDIiwicGFpZFVwVG8iOiIyMDIwLTAxLTA4In0seyJjb2RlIjoiUkQiLCJwYWlkVXBUbyI6IjIwMjAtMDEtMDgifSx7ImNvZGUiOiJQQyIsInBhaWRVcFRvIjoiMjAyMC0wMS0wOCJ9LHsiY29kZSI6IlJNIiwicGFpZFVwVG8iOiIyMDIwLTAxLTA4In0seyJjb2RlIjoiV1MiLCJwYWlkVXBUbyI6IjIwMjAtMDEtMDgifSx7ImNvZGUiOiJEQiIsI

fffffffee

//https://www.cnblogs.com/vastsum/p/5925033.html
package vastsum;

import java.io.File;
import java.util.Iterator;
import java.util.List;

import org.dom4j.Document;
import org.dom4j.DocumentException;
import org.dom4j.Element;

fffffffee

Sub 工程数量表不带规格型号列()

'工作一年半，做过很多次从工程概算软件中导出来的数据表格，转换到图纸中，或设计说明文件中的工程数量表，这是一个头疼的事情。
'早就想做一个小软件自动化此项工作，昨天有时间，一晚上的时间，边学vb，边写开发程序，竟然就做完了，希望以后减轻人们的重复工作量，轻松工作。
'作为七夕的礼物吧！
'上铁院 15F 通号处    -出图的小蜜蜂
'2015.8.20
'

   

fffffffee

Sub 宏1()
'
' 宏1 宏
'

'
For i = 3 To 400
    Rows(i).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    i = i + 1

fffffffee

Sub Macro1()
'
' Macro1 Macro
' 宏由 李东星 录制，时间: 2019/04/13
'

'
    Dim rng As Range
    
    Dim m As Integer, n As Integer

fffffffee

Sub test()
'
' test Macro

'
Dim i As Integer

For i = 2 To 350
    For j = 2 To 700
        If (Sheet1.Cells(j, 4) = Cells(i, 1)) Then

fffffffee

Sub test()
'
' test Macro

'
Dim i As Integer

For i = 2 To 350
    For j = 2 To 700
        If (Sheet1.Cells(j, 4) = Cells(i, 1)) Then

fffffffee

Sub test()
'
' 方便目录编号填充
'一般有两张表
'表二为经书名称
'表一为经书卷数
'为表一中经名相同的条目，填充对应表二经书名称的藏经编号
'
Dim i As Integer, j As Integer, k As Integer '定义指针变量，为整数 
 

fffffffee

Sub 计算区间基站or直放站间距()
'
' 计算区间基站or直放站间距 Macro
' 宏由 李东星 录制，时间: 2017/08/10
' 时光匆匆，上次写程序还是2015年呢，那是刚工作1年半
' 有用的事就赶快做吧
'
Dim rng As Range

Dim m As Integer, n As Integer

fffffffee

Sub 选择性删除数据()
'
' 选择性删除数据 宏
' 循环删除数据
'

'
Dim rng As Range
Dim i As Integer, j As Integer