Skip to content

Instantly share code, notes, and snippets.

Working from home

AndroidKy Kyson

Working from home
Block or report user

Report or block Kyson

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
Kyson / pull anr
Created Jan 19, 2017
View pull anr
cat /data/anr/traces.txt > /mnt/sdcard/k.txt
adb pull /mnt/sdcard/k.txt k.txt
Kyson / wait-notify-test
Created Jan 9, 2017
View wait-notify-test
public class Main {
public static void main(String[] args) {
Object obj = new Object();
new Thread() {
public void run() {
View gist:e47b82f3bdfb47af1e13e97ca5e1d8d4
Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
View gist:dbe2c531b1fc6887df054b2acc1d192b
Sub hebing()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
You can’t perform that action at this time.