各位版大, 請問一下關於下面表格.
我想要去做判斷表格裡相同的字, 然後中間空白的部份都填滿一樣的字.
如下面表格, 在另一份工作表成現, excel 可方法可以將A to A之間都補滿相同的字嗎??
關於excel函數問題
文章關鍵字
=IF(OR((A3:A$100)=A1)=TRUE,A1,"")
Ctrl+Shift+enter

感覺不實用啊.....
我是有用VBA寫, 但發現在google試算表是用JavaScript...還是各位程式高手的大大, 可以幫我將這段VBA轉成JavaScript呢?

Private Sub Workbook_Open()
Dim z%
Dim L%

R = Sheets("工作表2").UsedRange.Rows.Count

C = Sheets("工作表2").UsedRange.Columns.Count

R1 = Sheets("工作表1").UsedRange.Rows.Count

L = R

If R1 > R Then
L = R1
End If

For i = 2 To L

a = Sheets("工作表2").Cells(i, 1)

For j = 2 To R

If a = Sheets("工作表1").Cells(j, 4).Value Then
b = Left(Sheets("工作表1").Cells(j, 3), 2)
For x = 2 To C
If b = Sheets("工作表2").Cells(1, x) Then
d = Sheets("工作表1").Cells(j, 5) - Sheets("工作表1").Cells(j, 4) + 1
z = i
While d > 0


Sheets("工作表2").Cells(z, x).Value = Sheets("工作表1").Cells(j, 2)
z = z + 1
d = d - 1

Wend

End If

Next x
End If

Next j
Next i

End Sub
文章分享
評分
評分
複製連結

今日熱門文章 網友點擊推薦!