sub test()
startmerge sheet4, sheet3
startmerge sheet6, sheet3
startmerge sheet7, sheet3
startmerge sheet8, sheet3
msgbox "ok!", vbinformation
end sub
'write new row
sub setnewrow()
dim i%, strtmp$
for i = 2 to sheet3.usedrange.rows.count
sheet3.cells(i, 5) = "wxga+で" & sheet3.cells(i, 4) & "(" & sheet3.cells(i, 3) & ")：靜的なform"
sheet3.cells(i, 6) = "wsxga+で" & sheet3.cells(i, 4) & "(" & sheet3.cells(i, 3) & ")：靜的なform"
next
end sub
'merge objsource to objdirect
private sub startmerge(objsource as object, objdirect as object)
dim i%, strtmp$
for i = 2 to objsource.usedrange.rows.count
strtmp = gettitlebyid(objsource, objdirect.cells(i, 1).text)
if strtmp <> "" then objdirect.cells(i, 4) = strtmp
next
end sub
'get objsheet's title
private function gettitlebyid(objsheet as object, strid$) as string
dim i%
for i = 1 to objsheet.usedrange.rows.count
if objsheet.cells(i, 1).text = strid then
gettitlebyid = trim(objsheet.cells(i, 4).text)
exit for
end if
next
end function
EXCEL合併多列
今天想實現乙個將 excel匯入到資料庫中的功能，這在以前我就實現過，本沒什麼。但問題是當晚列印出sql語句時，發現有很多空的資料，檢視了下excel 發現有乙個單元格中的資料是跨多列的。於是就要解決合併多列資料 的問題。通過網路，我找到了一種解決方法，我是這樣實現的 1.公式 concatenat...
EXCEL 合併兩列的內容
今天客戶給了乙個excel表，是他們近期的一些資料，要把這個excel中的資料匯入我們的資料庫。在處理的過程中，有個時間字段，在資料庫裡的格式是 yyyy mm dd hh mm ss 但是在客戶excel表中，日期和時間是分開的兩列 這就需要在excel中處理一下，把兩列拼成一列。如果是文字格式的...
記excel匯出相同列單元格合併
private log logger logfactory.getlog this.getclass 查詢資料存到list中 list rtnlist new arraylist object objpercentage for iterator iterator1 list.iterator it...